Modelagem Financeira II
Dr. Gélio M. Ferreira
Aula II - MBA em Finanças: Investimento e Risco (UFG)
Outline
Aula I (16/08/2019): 5 horas
Clustering: Segmentação
Métodos para Medir Distâncias
Clustering Hierárquico
Visualização de Segmentação
Outline
Aula II (24/08/2019): 5 horas
Clustering em Mercado de Capitais
Clustering em Análise de Crédito
Clustering em Clientes/Faturamento
Outline
Aula III (14/09/2019): 5 horas
Análise Fundamentalista
Tendências das Contas Principais
Estrutura da Dívida, Rentabilidade e Lucratividade
Análise Fundamentalista
A Análise Fundamentalista busca mapear e mensurar os fundamentos econômico-financeiro-operacionais da empresa, como: Faturamento, Custos, Dívidas de CP e LP, Investimentos de CP e LP. Além disso, procura avaliar como tais fatores pesam na atividade atual da empresa.
“A melhor análise: reflete o status e as perspectivas da empresa diante das restrições reais que a empresa se encontra.” (minha opinião)
Assim como William Peter Hamilton (1867 – 1929) e Charles Dow (1851 – 1902), um dos fundadores da Dow Jones e do Wall Street Journal, podem ser considerados os pais da análise técnica, o professor e investidor Benjamin Graham (1894-1976) é o pai da Análise Fundamentalista e Valuation.
Benjamin Graham ficou famoso por ter sido professor do bilionário Warren Buffet (Columbia University).
O grande objetivo da Análise Fundamentalista é lucrar na diferença de preço de compra e venda de ações com foco no longo prazo, por meio de estudos da situação da empresa e perspectivas conjunturais futuras.
Alguns tópicos da Análise Fundamentalista serão exploradas nesta aula!!!
A empresa analisada
– Usiminas: Usinas Siderurgicas de Minas Gerais S.A
– Produtos: setor siderúrgico - produção e comercialização de aços planos laminados a frio e a quente, bobinas, placas e revestidos.
– Clientes: setores de bens de capital e de bens de consumo da linha branca e indústria automotiva.
– Fundação: 25 de abril de 1956 em Coronel Fabriciano, (Vale do Aço, Minas Gerais).
– Privatização: 24 de outubro de 1991
Grupo USIMINAS
– Mineração Usiminas: Operações de mineração e transporte ferroviário, Joint venture com o grupo japonês Sumitomo Corporation.
– Soluções Usiminas: Distribuição e transformação de aço, criada em 2009 com a fusão das companhias Fasal, Rio Negro, Dufer, Zamprogna e Usicort. Possui onze unidades industriais no Brasil.
– Usiminas Mecânica: Montagem industrial e bens de capital, investindo na indústria de gás e energia, habitação popular e infraestrutura.
– Unigal Usiminas: Processamento de aço galvanizado por imersão a quente. Joint venture entre a Usiminas e a Nippon Steel.
Demonstrações Financeiras Consolidadas
Nesta Análise serão utilizados:
– Balanço Patrimonial
– Demonstração do Fluxo de Caixa
– Demonstração dos Resultados do Exercício
– Demonstração dos Resultados Abrangentes
– Demonstração do Valor Adicionado
Obs. 1: Informações coletadas do B3
Obs. 2: Período de 2009 a 2018
Obs. 3: Info de Mercado: IGP-DI, Correção Monetária, Valor de Ações, Número de ações.
Dados das DF’s da Empresa
Dados Consolidados do Grupo Usiminas
Explore os dados (valores em mil R$):
shhh <- suppressPackageStartupMessages # não mostra mensagens
shhh(library(data.table))
options(scipen=99) # no scientic notation
options(digits = 5)
data.bulk=shhh(fread("data/usiminas-ano10-18.csv",sep=";", header=TRUE, dec=",", colClasses=c("character", rep("numeric", 10),"character", "character", "character")))
data.bulk$V14=NULL
data.bulk=as.data.frame(data.bulk)
Análise Fundamentalista (I)
Limpeza de dados e checar unicidade do nome das linhas
data.bulk=data.bulk[,1:13]
#achar o numero de nomes repetidos
col1=data.bulk[,1] # nome da conta
col12=data.bulk[,13] # simbolo da demonstração
clounique=unique(col1)
notuniq=sapply(clounique, function(x)(length(which(col1 == x))))
# notuniq
# Alterar os registros com codigo de classe de contas
rownovo = paste(col1,col12, sep=" - ")
names.rep=data.frame(nam=names(notuniq), x = notuniq)
names.rep
nam
Ativo Ativo
Ativo Total Ativo Total
Ativo Circulante Ativo Circulante
Caixa e Equivalentes de Caixa Caixa e Equivalentes de Caixa
Aplicacoes Financeiras Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao Titulos para Negociacao
Titulos Disponiveis para Venda Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado Aplicacoes Financeiras Avaliadas ao Custo Amortizado
Titulos Mantidos ata o Vencimento Titulos Mantidos ata o Vencimento
Contas a Receber Contas a Receber
Clientes Clientes
Outras Contas a Receber subconta Outras Contas a Receber subconta
Estoques Estoques
Ativos Biologicos Ativos Biologicos
Tributos a Recuperar Tributos a Recuperar
Tributos Correntes a Recuperar Tributos Correntes a Recuperar
Despesas Antecipadas Despesas Antecipadas
Outros Ativos Circulantes Outros Ativos Circulantes
Ativos Nao-Correntes a Venda Ativos Nao-Correntes a Venda
Ativos de Operacoes Descontinuadas Ativos de Operacoes Descontinuadas
Outros Outros
Impostos a Recuperar Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados Imposto de Renda e Contribuicao Social Antecipados
Dividendos a Receber Dividendos a Receber
Adiantamentos a Fornecedores Adiantamentos a Fornecedores
Outras Contas a Receber Outras Contas a Receber
Instrumentos Financeiros Instrumentos Financeiros
Ativo Nao Circulante Ativo Nao Circulante
Ativo Realizavel a Longo Prazo Ativo Realizavel a Longo Prazo
Tributos Diferidos Tributos Diferidos
Imposto de Renda e Contribuicao Social Diferidos Imposto de Renda e Contribuicao Social Diferidos
Creditos com Partes Relacionadas Creditos com Partes Relacionadas
Creditos com Coligadas Creditos com Coligadas
Creditos com Controladores Creditos com Controladores
Creditos com Outras Partes Relacionadas Creditos com Outras Partes Relacionadas
Outros Ativos Nao Circulantes Outros Ativos Nao Circulantes
Tributos Diferidos Tributos Diferidos
Depositos Judiciais Depositos Judiciais
Valores a receber Eletrobras Valores a receber Eletrobras
Investimentos Investimentos
Participacoes Societarias Participacoes Societarias
Participacoes em Coligadas Participacoes em Coligadas
Outras Participacoes Societarias Outras Participacoes Societarias
Propriedades para Investimento Propriedades para Investimento
Imobilizado Imobilizado
Imobilizado em Operacao Imobilizado em Operacao
Imobilizado Arrendado Imobilizado Arrendado
Imobilizado em Andamento Imobilizado em Andamento
Intangivel Intangivel
Intangiveis Intangiveis
Contrato de Concessao Contrato de Concessao
Goodwill Goodwill
Passivo Passivo
Passivo Total Passivo Total
Passivo Circulante Passivo Circulante
Obrigacoes Sociais e Trabalhistas Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais Obrigacoes Sociais
Obrigacoes Trabalhistas Obrigacoes Trabalhistas
Fornecedores Fornecedores
Fornecedores Nacionais Fornecedores Nacionais
Fornecedores Estrangeiros Fornecedores Estrangeiros
Obrigacoes Fiscais Obrigacoes Fiscais
Obrigacoes Fiscais Federais Obrigacoes Fiscais Federais
Imposto de Renda e Contribuicao Social a Pagar Imposto de Renda e Contribuicao Social a Pagar
Tributos a recolher Tributos a recolher
Salarios e Encargos Sociais Salarios e Encargos Sociais
Obrigacoes Fiscais Estaduais Obrigacoes Fiscais Estaduais
Obrigacoes Fiscais Municipais Obrigacoes Fiscais Municipais
Emprestimos e Financiamentos Emprestimos e Financiamentos
Emprestimos e Financiamentos subconta Emprestimos e Financiamentos subconta
Em Moeda Nacional Em Moeda Nacional
Em Moeda Estrangeira Em Moeda Estrangeira
Debentures Debentures
Financiamento por Arrendamento Financeiro Financiamento por Arrendamento Financeiro
Outras Obrigacoes Outras Obrigacoes
Passivos com Partes Relacionadas Passivos com Partes Relacionadas
Debitos com Coligadas Debitos com Coligadas
Debitos com Controladores Debitos com Controladores
Debitos com Outras Partes Relacionadas Debitos com Outras Partes Relacionadas
Dividendos e JCP a Pagar Dividendos e JCP a Pagar
Dividendo Minimo Obrigatorio a Pagar Dividendo Minimo Obrigatorio a Pagar
Obrigacoes por Pagamentos Baseados em Acoes Obrigacoes por Pagamentos Baseados em Acoes
Tributos Parcelados Tributos Parcelados
Adiantamentos de Clientes Adiantamentos de Clientes
Contas a Pagar por Aquisicao de Investimentos Contas a Pagar por Aquisicao de Investimentos
Contas a Pagar Contas a Pagar
Titulos a pagar - Forfaiting Titulos a pagar - Forfaiting
Provisoes Provisoes
Provisoes Fiscais Previdenciarias Trabalhistas e Civeis Provisoes Fiscais Previdenciarias Trabalhistas e Civeis
Provisoes Fiscais Provisoes Fiscais
Provisoes Previdenciarias e Trabalhistas Provisoes Previdenciarias e Trabalhistas
Provisoes para Beneficios a Empregados Provisoes para Beneficios a Empregados
Provisoes Civeis Provisoes Civeis
Outras Provisoes Outras Provisoes
Provisoes para Garantias Provisoes para Garantias
Provisoes para Reestruturacao Provisoes para Reestruturacao
Provisoes para Passivos Ambientais e de Desativacao Provisoes para Passivos Ambientais e de Desativacao
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados
Passivos sobre Ativos Nao-Correntes a Venda Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas Passivos sobre Ativos de Operacoes Descontinuadas
Passivo Nao Circulante Passivo Nao Circulante
Emprestimos e Financiamentos subconta Emprestimos e Financiamentos subconta
Adiantamento para Futuro Aumento de Capital Adiantamento para Futuro Aumento de Capital
Outros subconta Outros subconta
Passivos Contingentes Passivos Contingentes
Lucros e Receitas a Apropriar Lucros e Receitas a Apropriar
Lucros a Apropriar Lucros a Apropriar
Receitas a Apropriar Receitas a Apropriar
Subvencoes de Investimento a Apropriar Subvencoes de Investimento a Apropriar
Patrimonio Liquido Consolidado Patrimonio Liquido Consolidado
Capital Social Realizado Capital Social Realizado
Reservas de Capital Reservas de Capital
Agio na Emissao de Acoes Agio na Emissao de Acoes
Reserva Especial de agio na Incorporacao Reserva Especial de agio na Incorporacao
Alienacao de Bonus de Subscricao Alienacao de Bonus de Subscricao
Opcoes Outorgadas Opcoes Outorgadas
Acoes em Tesouraria RC Acoes em Tesouraria RC
Reservas de Reavaliacao Reservas de Reavaliacao
Reservas de Lucros Reservas de Lucros
Reserva Legal Reserva Legal
Reserva Estatutaria Reserva Estatutaria
Reserva para Contingencias Reserva para Contingencias
Reserva de Lucros a Realizar Reserva de Lucros a Realizar
Reserva de Retencao de Lucros Reserva de Retencao de Lucros
Reserva Especial para Dividendos Nao Distribuidos Reserva Especial para Dividendos Nao Distribuidos
Reserva de Incentivos Fiscais Reserva de Incentivos Fiscais
Dividendo Adicional Proposto Dividendo Adicional Proposto
Acoes em Tesouraria RL Acoes em Tesouraria RL
Para Investimentos e Capital de Giro Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao Ajustes Acumulados de Conversao
Outros Resultados Abrangentes Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores Participacao dos Acionistas Nao Controladores
DRE DRE
Receita de Venda de Bens e/ou Servicos Receita de Venda de Bens e/ou Servicos
Custo dos Bens e/ou Servicos Vendidos Custo dos Bens e/ou Servicos Vendidos
Resultado Bruto Resultado Bruto
Despesas/Receitas Operacionais Despesas/Receitas Operacionais
Despesas com Vendas Despesas com Vendas
Despesas Gerais e Administrativas Despesas Gerais e Administrativas
Perdas pela Nao Recuperabilidade de Ativos Perdas pela Nao Recuperabilidade de Ativos
Outras Receitas Operacionais Outras Receitas Operacionais
Outras Despesas Operacionais Outras Despesas Operacionais
Resultado de Equivalencia Patrimonial Resultado de Equivalencia Patrimonial
Resultado Antes do Resultado Financeiro e dos Tributos Resultado Antes do Resultado Financeiro e dos Tributos
Resultado Financeiro Resultado Financeiro
Receitas Financeiras Receitas Financeiras
Despesas Financeiras Despesas Financeiras
Resultado Antes dos Tributos sobre o Lucro Resultado Antes dos Tributos sobre o Lucro
Imposto de Renda e Contribuicao Social sobre o Lucro Imposto de Renda e Contribuicao Social sobre o Lucro
Corrente Corrente
Diferido Diferido
Resultado Liquido das Operacoes Continuadas Resultado Liquido das Operacoes Continuadas
Resultado Liquido de Operacoes Descontinuadas Resultado Liquido de Operacoes Descontinuadas
Lucro/Prejuizo Liquido das Operacoes Descontinuadas Lucro/Prejuizo Liquido das Operacoes Descontinuadas
Ganhos/Perdas Liquidas sobre Ativos de Operacoes Descontinuadas Ganhos/Perdas Liquidas sobre Ativos de Operacoes Descontinuadas
Lucro/Prejuizo Consolidado do Periodo Lucro/Prejuizo Consolidado do Periodo
Atribuido a Socios da Empresa Controladora Atribuido a Socios da Empresa Controladora
Atribuido a Socios Nao Controladores Atribuido a Socios Nao Controladores
Lucro por Acao - (Reais / Acao) Lucro por Acao - (Reais / Acao)
Lucro Basico por Acao Lucro Basico por Acao
ON ON
PN PN
Lucro Diluido por Acao Lucro Diluido por Acao
ON 1 ON 1
PN 1 PN 1
DRA DRA
Lucro Liquido Consolidado do Periodo Lucro Liquido Consolidado do Periodo
Ganho (perda) Atuarial com Beneficios de Aposentadoria Ganho (perda) Atuarial com Beneficios de Aposentadoria
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora Hedge de Fluxo de Caixa na Controladora
Hedge de Fluxo de Caixa em Coligada Hedge de Fluxo de Caixa em Coligada
Resultado Abrangente Consolidado do Periodo Resultado Abrangente Consolidado do Periodo
DFC DFC
Caixa Liquido Atividades Operacionais Caixa Liquido Atividades Operacionais
Caixa Gerado nas Operacoes Caixa Gerado nas Operacoes
Lucro Liquido do Exercicio Lucro Liquido do Exercicio
Encargos e Variacoes Monetarias/Cambiais Liquidas Encargos e Variacoes Monetarias/Cambiais Liquidas
Despesas de Juros Despesas de Juros
Depreciacao, Amortizacao e Exaustao Depreciacao, Amortizacao e Exaustao
Resultado na Venda de Imobilizado Resultado na Venda de Imobilizado
Resultado na Alienacao de Operacoes Descontinuadas Resultado na Alienacao de Operacoes Descontinuadas
Participacoes nos Resultados de controladas, controladas em conjunto e coligadas Participacoes nos Resultados de controladas, controladas em conjunto e coligadas
Constituicao (Reversao) e Provisoes Constituicao (Reversao) e Provisoes
Perdas (Ganhos) Atuariais Perdas (Ganhos) Atuariais
Plano de Outorga de Acoes Plano de Outorga de Acoes
Perda (reversao) por valor recuperavel de ativos (Impairment) Perda (reversao) por valor recuperavel de ativos (Impairment)
Variacoes nos Ativos e Passivos Variacoes nos Ativos e Passivos
Titulos e Valores Mobiliarios Titulos e Valores Mobiliarios
Contas a Receber de Clientes Contas a Receber de Clientes
Valores a Receber de Empresas Ligadas Valores a Receber de Empresas Ligadas
Fornecedores, Empreiteiros e Fretes Fornecedores, Empreiteiros e Fretes
Valores a Pagar a Empresas Ligadas Valores a Pagar a Empresas Ligadas
Tributos a Recolher Tributos a Recolher
Outros 1 Outros 1
Outros 2 Outros 2
Imposto de Renda e Contribuicao Social Pagos Imposto de Renda e Contribuicao Social Pagos
Juros Pagos Juros Pagos
Passivo Atuarial Pago Passivo Atuarial Pago
Caixa Liquido Atividades de Investimento Caixa Liquido Atividades de Investimento
Valor Recebido Pela Alienacao (Aquisicao) de Investimentos Valor Recebido Pela Alienacao (Aquisicao) de Investimentos
Valor Pago Pela Aquisicao de Controladas e Coligadas Valor Pago Pela Aquisicao de Controladas e Coligadas
Compras de Imobilizado Compras de Imobilizado
Valor Recebido Pela Venda de Imobilizado Valor Recebido Pela Venda de Imobilizado
Compras de Ativos Intangiveis Compras de Ativos Intangiveis
Dividendos Recebidos Dividendos Recebidos
Titulos e valores mobiliarios Titulos e valores mobiliarios
Caixa Liquido Atividades de Financiamento Caixa Liquido Atividades de Financiamento
Ingressos de Emprestimos de Financiamentos e Debentures Ingressos de Emprestimos de Financiamentos e Debentures
Pagamento de Emprestimos e Financiamentos Pagamento de Emprestimos e Financiamentos
Recebimento Decorrente de Emissao de Acoes Recebimento Decorrente de Emissao de Acoes
Pagamento de Tributos Parcelados Pagamento de Tributos Parcelados
Liquidacao de Operacoes de Swap Liquidacao de Operacoes de Swap
Dividendos e Juros Sobre Capital Proprio Pagos Dividendos e Juros Sobre Capital Proprio Pagos
Ganho de Capital Ganho de Capital
Cessoes de credito contratadas Cessoes de credito contratadas
Cessoes de credito liquidadas Cessoes de credito liquidadas
Recebimento Por Aumento de Capital Social Recebimento Por Aumento de Capital Social
Reducao de capital em controlada - participacao dos acionistas nao controladores Reducao de capital em controlada - participacao dos acionistas nao controladores
Variacao Cambial s/ Caixa e Equivalentes Variacao Cambial s/ Caixa e Equivalentes
Aumento (Reducao) de Caixa e Equivalentes Aumento (Reducao) de Caixa e Equivalentes
Saldo Inicial de Caixa e Equivalentes Saldo Inicial de Caixa e Equivalentes
Saldo Final de Caixa e Equivalentes Saldo Final de Caixa e Equivalentes
DVA DVA
Receitas Receitas
Vendas de Mercadorias, Produtos e Servicos Vendas de Mercadorias, Produtos e Servicos
Outras Receitas Outras Receitas
Receitas refs. a Construcao de Ativos Proprios Receitas refs. a Construcao de Ativos Proprios
Provisao/Reversao de Crads. Liquidacao Duvidosa Provisao/Reversao de Crads. Liquidacao Duvidosa
Insumos Adquiridos de Terceiros Insumos Adquiridos de Terceiros
Custos Prods., Mercs. e Servs. Vendidos Custos Prods., Mercs. e Servs. Vendidos
Materiais, Energia, Servs. de Terceiros e Outros Materiais, Energia, Servs. de Terceiros e Outros
Perda/Recuperacao de Valores Ativos Perda/Recuperacao de Valores Ativos
Outros custos Outros custos
Valor Adicionado Bruto Valor Adicionado Bruto
Retencoes Retencoes
Outras retencoes Outras retencoes
Valor Adicionado Liquido Produzido Valor Adicionado Liquido Produzido
Vlr Adicionado Recebido em Transferencia Vlr Adicionado Recebido em Transferencia
Outros resultados Outros resultados
Ganhos e perdas atuariais Ganhos e perdas atuariais
Variacoes cambiais liquidas Variacoes cambiais liquidas
Valor Adicionado Total a Distribuir Valor Adicionado Total a Distribuir
Distribuicao do Valor Adicionado Distribuicao do Valor Adicionado
Pessoal Pessoal
Remuneracao Direta Remuneracao Direta
Beneficios Beneficios
F.G.T.S. F.G.T.S.
Outros impostos Outros impostos
Impostos, Taxas e Contribuicoes Impostos, Taxas e Contribuicoes
Federais Federais
Estaduais Estaduais
Municipais Municipais
Remuneracao de Capitais de Terceiros Remuneracao de Capitais de Terceiros
Juros Juros
Alugueis Alugueis
Outras distrib Outras distrib
Variacoes Cambiais Liquidas Variacoes Cambiais Liquidas
Outras Outras
Remuneracao de Capitais Proprios Remuneracao de Capitais Proprios
Juros sobre o Capital Proprio Juros sobre o Capital Proprio
Dividendos Dividendos
Lucros Retidos / Prejuizo do Periodo Lucros Retidos / Prejuizo do Periodo
Part. Nao Controladores nos Lucros Retidos Part. Nao Controladores nos Lucros Retidos
Mercado Mercado
IGP-DI IGP-DI
Fator de Correcao Fator de Correcao
Cotacao USIM5 Cotacao USIM5
Numero de acoes Numero de acoes
FIM FIM
x
Ativo 1
Ativo Total 1
Ativo Circulante 1
Caixa e Equivalentes de Caixa 1
Aplicacoes Financeiras 1
Aplicacoes Financeiras Avaliadas a Valor Justo 2
Titulos para Negociacao 2
Titulos Disponiveis para Venda 2
Aplicacoes Financeiras Avaliadas ao Custo Amortizado 2
Titulos Mantidos ata o Vencimento 2
Contas a Receber 2
Clientes 2
Outras Contas a Receber subconta 1
Estoques 3
Ativos Biologicos 2
Tributos a Recuperar 1
Tributos Correntes a Recuperar 1
Despesas Antecipadas 2
Outros Ativos Circulantes 1
Ativos Nao-Correntes a Venda 2
Ativos de Operacoes Descontinuadas 2
Outros 6
Impostos a Recuperar 3
Imposto de Renda e Contribuicao Social Antecipados 2
Dividendos a Receber 1
Adiantamentos a Fornecedores 1
Outras Contas a Receber 2
Instrumentos Financeiros 4
Ativo Nao Circulante 1
Ativo Realizavel a Longo Prazo 1
Tributos Diferidos 2
Imposto de Renda e Contribuicao Social Diferidos 3
Creditos com Partes Relacionadas 1
Creditos com Coligadas 1
Creditos com Controladores 1
Creditos com Outras Partes Relacionadas 1
Outros Ativos Nao Circulantes 1
Tributos Diferidos 1
Depositos Judiciais 2
Valores a receber Eletrobras 1
Investimentos 1
Participacoes Societarias 1
Participacoes em Coligadas 1
Outras Participacoes Societarias 1
Propriedades para Investimento 1
Imobilizado 1
Imobilizado em Operacao 1
Imobilizado Arrendado 1
Imobilizado em Andamento 1
Intangivel 1
Intangiveis 1
Contrato de Concessao 1
Goodwill 1
Passivo 1
Passivo Total 1
Passivo Circulante 1
Obrigacoes Sociais e Trabalhistas 1
Obrigacoes Sociais 1
Obrigacoes Trabalhistas 1
Fornecedores 1
Fornecedores Nacionais 1
Fornecedores Estrangeiros 1
Obrigacoes Fiscais 1
Obrigacoes Fiscais Federais 1
Imposto de Renda e Contribuicao Social a Pagar 1
Tributos a recolher 1
Salarios e Encargos Sociais 1
Obrigacoes Fiscais Estaduais 1
Obrigacoes Fiscais Municipais 1
Emprestimos e Financiamentos 2
Emprestimos e Financiamentos subconta 1
Em Moeda Nacional 2
Em Moeda Estrangeira 2
Debentures 2
Financiamento por Arrendamento Financeiro 2
Outras Obrigacoes 2
Passivos com Partes Relacionadas 2
Debitos com Coligadas 2
Debitos com Controladores 2
Debitos com Outras Partes Relacionadas 2
Dividendos e JCP a Pagar 1
Dividendo Minimo Obrigatorio a Pagar 1
Obrigacoes por Pagamentos Baseados em Acoes 2
Tributos Parcelados 2
Adiantamentos de Clientes 2
Contas a Pagar por Aquisicao de Investimentos 2
Contas a Pagar 1
Titulos a pagar - Forfaiting 2
Provisoes 2
Provisoes Fiscais Previdenciarias Trabalhistas e Civeis 2
Provisoes Fiscais 2
Provisoes Previdenciarias e Trabalhistas 2
Provisoes para Beneficios a Empregados 2
Provisoes Civeis 2
Outras Provisoes 2
Provisoes para Garantias 2
Provisoes para Reestruturacao 2
Provisoes para Passivos Ambientais e de Desativacao 2
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados 2
Passivos sobre Ativos Nao-Correntes a Venda 2
Passivos sobre Ativos de Operacoes Descontinuadas 2
Passivo Nao Circulante 1
Emprestimos e Financiamentos subconta 1
Adiantamento para Futuro Aumento de Capital 2
Outros subconta 1
Passivos Contingentes 1
Lucros e Receitas a Apropriar 1
Lucros a Apropriar 1
Receitas a Apropriar 1
Subvencoes de Investimento a Apropriar 1
Patrimonio Liquido Consolidado 1
Capital Social Realizado 1
Reservas de Capital 1
Agio na Emissao de Acoes 1
Reserva Especial de agio na Incorporacao 1
Alienacao de Bonus de Subscricao 1
Opcoes Outorgadas 1
Acoes em Tesouraria RC 1
Reservas de Reavaliacao 1
Reservas de Lucros 1
Reserva Legal 1
Reserva Estatutaria 1
Reserva para Contingencias 1
Reserva de Lucros a Realizar 1
Reserva de Retencao de Lucros 1
Reserva Especial para Dividendos Nao Distribuidos 1
Reserva de Incentivos Fiscais 1
Dividendo Adicional Proposto 1
Acoes em Tesouraria RL 1
Para Investimentos e Capital de Giro 1
Lucros/Prejuizos Acumulados 1
Ajustes de Avaliacao Patrimonial 1
Ajustes Acumulados de Conversao 1
Outros Resultados Abrangentes 2
Participacao dos Acionistas Nao Controladores 1
DRE 1
Receita de Venda de Bens e/ou Servicos 1
Custo dos Bens e/ou Servicos Vendidos 1
Resultado Bruto 1
Despesas/Receitas Operacionais 1
Despesas com Vendas 1
Despesas Gerais e Administrativas 1
Perdas pela Nao Recuperabilidade de Ativos 1
Outras Receitas Operacionais 1
Outras Despesas Operacionais 1
Resultado de Equivalencia Patrimonial 2
Resultado Antes do Resultado Financeiro e dos Tributos 1
Resultado Financeiro 1
Receitas Financeiras 2
Despesas Financeiras 1
Resultado Antes dos Tributos sobre o Lucro 1
Imposto de Renda e Contribuicao Social sobre o Lucro 1
Corrente 1
Diferido 1
Resultado Liquido das Operacoes Continuadas 1
Resultado Liquido de Operacoes Descontinuadas 1
Lucro/Prejuizo Liquido das Operacoes Descontinuadas 1
Ganhos/Perdas Liquidas sobre Ativos de Operacoes Descontinuadas 1
Lucro/Prejuizo Consolidado do Periodo 1
Atribuido a Socios da Empresa Controladora 2
Atribuido a Socios Nao Controladores 2
Lucro por Acao - (Reais / Acao) 1
Lucro Basico por Acao 1
ON 1
PN 1
Lucro Diluido por Acao 1
ON 1 1
PN 1 1
DRA 1
Lucro Liquido Consolidado do Periodo 1
Ganho (perda) Atuarial com Beneficios de Aposentadoria 1
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes 1
Hedge de Fluxo de Caixa na Controladora 1
Hedge de Fluxo de Caixa em Coligada 1
Resultado Abrangente Consolidado do Periodo 1
DFC 1
Caixa Liquido Atividades Operacionais 1
Caixa Gerado nas Operacoes 1
Lucro Liquido do Exercicio 1
Encargos e Variacoes Monetarias/Cambiais Liquidas 1
Despesas de Juros 1
Depreciacao, Amortizacao e Exaustao 2
Resultado na Venda de Imobilizado 1
Resultado na Alienacao de Operacoes Descontinuadas 1
Participacoes nos Resultados de controladas, controladas em conjunto e coligadas 1
Constituicao (Reversao) e Provisoes 1
Perdas (Ganhos) Atuariais 1
Plano de Outorga de Acoes 1
Perda (reversao) por valor recuperavel de ativos (Impairment) 1
Variacoes nos Ativos e Passivos 1
Titulos e Valores Mobiliarios 1
Contas a Receber de Clientes 1
Valores a Receber de Empresas Ligadas 1
Fornecedores, Empreiteiros e Fretes 1
Valores a Pagar a Empresas Ligadas 1
Tributos a Recolher 1
Outros 1 1
Outros 2 1
Imposto de Renda e Contribuicao Social Pagos 1
Juros Pagos 1
Passivo Atuarial Pago 1
Caixa Liquido Atividades de Investimento 1
Valor Recebido Pela Alienacao (Aquisicao) de Investimentos 1
Valor Pago Pela Aquisicao de Controladas e Coligadas 1
Compras de Imobilizado 1
Valor Recebido Pela Venda de Imobilizado 1
Compras de Ativos Intangiveis 1
Dividendos Recebidos 1
Titulos e valores mobiliarios 1
Caixa Liquido Atividades de Financiamento 1
Ingressos de Emprestimos de Financiamentos e Debentures 1
Pagamento de Emprestimos e Financiamentos 1
Recebimento Decorrente de Emissao de Acoes 1
Pagamento de Tributos Parcelados 1
Liquidacao de Operacoes de Swap 1
Dividendos e Juros Sobre Capital Proprio Pagos 1
Ganho de Capital 1
Cessoes de credito contratadas 1
Cessoes de credito liquidadas 1
Recebimento Por Aumento de Capital Social 1
Reducao de capital em controlada - participacao dos acionistas nao controladores 1
Variacao Cambial s/ Caixa e Equivalentes 1
Aumento (Reducao) de Caixa e Equivalentes 1
Saldo Inicial de Caixa e Equivalentes 1
Saldo Final de Caixa e Equivalentes 1
DVA 1
Receitas 1
Vendas de Mercadorias, Produtos e Servicos 1
Outras Receitas 1
Receitas refs. a Construcao de Ativos Proprios 1
Provisao/Reversao de Crads. Liquidacao Duvidosa 1
Insumos Adquiridos de Terceiros 1
Custos Prods., Mercs. e Servs. Vendidos 1
Materiais, Energia, Servs. de Terceiros e Outros 1
Perda/Recuperacao de Valores Ativos 1
Outros custos 1
Valor Adicionado Bruto 1
Retencoes 1
Outras retencoes 1
Valor Adicionado Liquido Produzido 1
Vlr Adicionado Recebido em Transferencia 1
Outros resultados 1
Ganhos e perdas atuariais 1
Variacoes cambiais liquidas 1
Valor Adicionado Total a Distribuir 1
Distribuicao do Valor Adicionado 1
Pessoal 1
Remuneracao Direta 1
Beneficios 1
F.G.T.S. 1
Outros impostos 1
Impostos, Taxas e Contribuicoes 1
Federais 1
Estaduais 1
Municipais 1
Remuneracao de Capitais de Terceiros 1
Juros 1
Alugueis 1
Outras distrib 1
Variacoes Cambiais Liquidas 1
Outras 1
Remuneracao de Capitais Proprios 1
Juros sobre o Capital Proprio 1
Dividendos 1
Lucros Retidos / Prejuizo do Periodo 1
Part. Nao Controladores nos Lucros Retidos 1
Mercado 1
IGP-DI 1
Fator de Correcao 1
Cotacao USIM5 1
Numero de acoes 1
FIM 1
a=length(rownovo)
notuniq=sapply(clounique, function(x)(length(which(col1 == x))))
row.names(data.bulk)=rownovo
b=length(row.names(data.bulk))
if (a==b) {print("Linhas resolvidas")
# renomeia linhas dos dados com nomes unicos
}else
{
print("Linhas nao resolvidas")
stop()
}
[1] "Linhas resolvidas"
[1] "Conta" "2018" "2017" "2016" "2015" "2014" "2013"
[8] "2012" "2011" "2010" "2009" "chk" "Classe"
'data.frame': 336 obs. of 13 variables:
$ Conta : chr "Ativo" "Ativo Total" "Ativo Circulante" "Caixa e Equivalentes de Caixa" ...
$ 2018 : num NA 26523851 8324317 1106790 586559 ...
$ 2017 : num NA 25984477 7254755 1770573 543715 ...
$ 2016 : num NA 26254745 6420478 719870 1537584 ...
$ 2015 : num NA 27758332 6894842 800272 1224185 ...
$ 2014 : num NA 30484062 8245211 2109812 742091 ...
$ 2013 : num NA 31357994 9460294 2633187 835629 ...
$ 2012 : num NA 32774219 10780645 3180764 1537558 ...
$ 2011 : num NA 33360425 12616945 2901312 2289383 ...
$ 2010 : num NA 31784751 12270576 4145779 397787 ...
$ 2009 : num NA 25940930 9239835 3083047 2098196 ...
$ chk : chr "" "Ativo Total" "Ativo Circulante" "Caixa e Equivalentes de Caixa" ...
$ Classe: chr "AT" "AT" "AC" "AC" ...
Análise Fundamentalista (II)
Checar dados globais e declarar funções que serão utilizadas
Conta
Ativo - AT Ativo
Ativo Total - AT Ativo Total
Ativo Circulante - AC Ativo Circulante
Caixa e Equivalentes de Caixa - AC Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
2018 2017
Ativo - AT NA NA
Ativo Total - AT 26523851 25984477
Ativo Circulante - AC 8324317 7254755
Caixa e Equivalentes de Caixa - AC 1106790 1770573
Aplicacoes Financeiras - AC 586559 543715
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
2016 2015
Ativo - AT NA NA
Ativo Total - AT 26254745 27758332
Ativo Circulante - AC 6420478 6894842
Caixa e Equivalentes de Caixa - AC 719870 800272
Aplicacoes Financeiras - AC 1537584 1224185
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
2014 2013
Ativo - AT NA NA
Ativo Total - AT 30484062 31357994
Ativo Circulante - AC 8245211 9460294
Caixa e Equivalentes de Caixa - AC 2109812 2633187
Aplicacoes Financeiras - AC 742091 835629
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
2012 2011
Ativo - AT NA NA
Ativo Total - AT 32774219 33360425
Ativo Circulante - AC 10780645 12616945
Caixa e Equivalentes de Caixa - AC 3180764 2901312
Aplicacoes Financeiras - AC 1537558 2289383
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
2010 2009
Ativo - AT NA NA
Ativo Total - AT 31784751 25940930
Ativo Circulante - AC 12270576 9239835
Caixa e Equivalentes de Caixa - AC 4145779 3083047
Aplicacoes Financeiras - AC 397787 2098196
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
chk
Ativo - AT
Ativo Total - AT Ativo Total
Ativo Circulante - AC Ativo Circulante
Caixa e Equivalentes de Caixa - AC Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
Classe
Ativo - AT AT
Ativo Total - AT AT
Ativo Circulante - AC AC
Caixa e Equivalentes de Caixa - AC AC
Aplicacoes Financeiras - AC AC
Aplicacoes Financeiras Avaliadas a Valor Justo - AC AC
Conta 2018
Mercado - MERC Mercado NA
IGP-DI - MERC IGP-DI 0.07102
Fator de Correcao - MERC Fator de Correcao 1.00000
Cotacao USIM5 - MERC Cotacao USIM5 9.22000
Numero de acoes - MERC Numero de acoes 1253079108.00000
FIM - FIM FIM NA
2017 2016 2015
Mercado - MERC NA NA NA
IGP-DI - MERC -0.0042 0.07150 0.1068
Fator de Correcao - MERC 1.0710 0.99162 1.1481
Cotacao USIM5 - MERC 9.1000 4.10000 1.5500
Numero de acoes - MERC 1253079108.0000 1253079108.00000 1013786190.0000
FIM - FIM NA NA NA
2014 2013 2012
Mercado - MERC NA NA NA
IGP-DI - MERC 0.0378 0.0553 0.0811
Fator de Correcao - MERC 1.2199 1.1551 1.3372
Cotacao USIM5 - MERC 5.0500 14.2100 12.8000
Numero de acoes - MERC 1013786190.0000 1013786190.0000 1013786190.0000
FIM - FIM NA NA NA
2011 2010 2009
Mercado - MERC NA NA NA
IGP-DI - MERC 0.0501 0.1131 -0.0144
Fator de Correcao - MERC 1.4585 1.4566 1.7811
Cotacao USIM5 - MERC 10.1500 19.1600 51.0000
Numero de acoes - MERC 1013786190.0000 1013786190.0000 506893095.0000
FIM - FIM NA NA NA
chk Classe
Mercado - MERC MERC
IGP-DI - MERC MERC
Fator de Correcao - MERC MERC
Cotacao USIM5 - MERC MERC
Numero de acoes - MERC MERC
FIM - FIM FIM
#class(data.bulk)
#rownames(data.bulk)
#colnames(data.bulk)
# Funcoes
saveplot <- function(myPlot, filename) {
png(filename,width=1800 ,heigh=1200 ,res=180)
print(myPlot)
dev.off()
}
f.dec = function(x, k) trimws(format(round(x, k), nsmall=k))
f.perc= function(x) paste0((x*100), "%")
Análise Fundamentalista (III)
Indentificar os índices dos grupos e separa os grupos de contas.
Explore as novas Tabelas…
# Identificar Índices das linhas Ativo, PL, DRE, ...
header.Ativo= as.numeric(which(rownames(data.bulk) == "Ativo - AT"))
header.Passivo=as.numeric(which(rownames(data.bulk) =="Passivo - PT"))
header.DRE=as.numeric(which(rownames(data.bulk) == "DRE - DRE"))
header.DRA=as.numeric(which(rownames(data.bulk) == "DRA - DRA"))
header.DFC=as.numeric(which(rownames(data.bulk) == "DFC - DFC"))
header.DVA=as.numeric(which(rownames(data.bulk) == "DVA - DVA"))
header.MERC=as.numeric(which(rownames(data.bulk) =="Mercado - MERC"))
header.FIM=as.numeric(which(rownames(data.bulk) =="FIM - FIM"))
# Separar os conjuntos de contas Ativo, Passivo, DRE, RA, DFC...
Data.Ativo=data.bulk[header.Ativo:(header.Passivo-1),]
head(Data.Ativo)
Conta
Ativo - AT Ativo
Ativo Total - AT Ativo Total
Ativo Circulante - AC Ativo Circulante
Caixa e Equivalentes de Caixa - AC Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
2018 2017
Ativo - AT NA NA
Ativo Total - AT 26523851 25984477
Ativo Circulante - AC 8324317 7254755
Caixa e Equivalentes de Caixa - AC 1106790 1770573
Aplicacoes Financeiras - AC 586559 543715
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
2016 2015
Ativo - AT NA NA
Ativo Total - AT 26254745 27758332
Ativo Circulante - AC 6420478 6894842
Caixa e Equivalentes de Caixa - AC 719870 800272
Aplicacoes Financeiras - AC 1537584 1224185
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
2014 2013
Ativo - AT NA NA
Ativo Total - AT 30484062 31357994
Ativo Circulante - AC 8245211 9460294
Caixa e Equivalentes de Caixa - AC 2109812 2633187
Aplicacoes Financeiras - AC 742091 835629
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
2012 2011
Ativo - AT NA NA
Ativo Total - AT 32774219 33360425
Ativo Circulante - AC 10780645 12616945
Caixa e Equivalentes de Caixa - AC 3180764 2901312
Aplicacoes Financeiras - AC 1537558 2289383
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
2010 2009
Ativo - AT NA NA
Ativo Total - AT 31784751 25940930
Ativo Circulante - AC 12270576 9239835
Caixa e Equivalentes de Caixa - AC 4145779 3083047
Aplicacoes Financeiras - AC 397787 2098196
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
chk
Ativo - AT
Ativo Total - AT Ativo Total
Ativo Circulante - AC Ativo Circulante
Caixa e Equivalentes de Caixa - AC Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
Classe
Ativo - AT AT
Ativo Total - AT AT
Ativo Circulante - AC AC
Caixa e Equivalentes de Caixa - AC AC
Aplicacoes Financeiras - AC AC
Aplicacoes Financeiras Avaliadas a Valor Justo - AC AC
Conta 2018 2017
Imobilizado Arrendado - ANC Imobilizado Arrendado 0 0
Imobilizado em Andamento - ANC Imobilizado em Andamento 846012 844225
Intangivel - ANC Intangivel 695596 677190
Intangiveis - ANC Intangiveis 0 0
Contrato de Concessao - ANC Contrato de Concessao 0 0
Goodwill - ANC Goodwill 0 0
2016 2015 2014 2013 2012
Imobilizado Arrendado - ANC 0 0 0 0 0
Imobilizado em Andamento - ANC 892605 1425978 2011008 1916903 2209796
Intangivel - ANC 693918 337922 2377679 2400577 2442648
Intangiveis - ANC 0 0 0 0 0
Contrato de Concessao - ANC 0 0 0 0 0
Goodwill - ANC 0 0 0 0 0
2011 2010 2009
Imobilizado Arrendado - ANC 0 0 0
Imobilizado em Andamento - ANC 5431352 4530621 2884268
Intangivel - ANC 2453952 1741850 1737495
Intangiveis - ANC 0 0 0
Contrato de Concessao - ANC 0 0 0
Goodwill - ANC 0 0 0
chk Classe
Imobilizado Arrendado - ANC Imobilizado Arrendado ANC
Imobilizado em Andamento - ANC Imobilizado em Andamento ANC
Intangivel - ANC Intangivel ANC
Intangiveis - ANC Intangiveis ANC
Contrato de Concessao - ANC Contrato de Concessao ANC
Goodwill - ANC Goodwill ANC
Data.Passivo=data.bulk[header.Passivo:(header.DRE-1),]
head(Data.Passivo)
Conta
Passivo - PT Passivo
Passivo Total - PT Passivo Total
Passivo Circulante - PC Passivo Circulante
Obrigacoes Sociais e Trabalhistas - PC Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais - PC Obrigacoes Sociais
Obrigacoes Trabalhistas - PC Obrigacoes Trabalhistas
2018 2017 2016 2015
Passivo - PT NA NA NA NA
Passivo Total - PT 26523851 25984477 26254745 27758332
Passivo Circulante - PC 3335670 3046420 1752244 4495923
Obrigacoes Sociais e Trabalhistas - PC 205583 188735 197076 278149
Obrigacoes Sociais - PC 0 0 0 0
Obrigacoes Trabalhistas - PC 0 0 0 0
2014 2013 2012 2011
Passivo - PT NA NA NA NA
Passivo Total - PT 30484062 31357994 32774219 33360425
Passivo Circulante - PC 4769426 5087491 5402921 4092173
Obrigacoes Sociais e Trabalhistas - PC 280284 250849 0 0
Obrigacoes Sociais - PC 0 0 0 0
Obrigacoes Trabalhistas - PC 0 0 0 0
2010 2009
Passivo - PT NA NA
Passivo Total - PT 31784751 25940930
Passivo Circulante - PC 3497015 3036027
Obrigacoes Sociais e Trabalhistas - PC 0 206519
Obrigacoes Sociais - PC 0 0
Obrigacoes Trabalhistas - PC 0 0
chk
Passivo - PT
Passivo Total - PT Passivo Total
Passivo Circulante - PC Passivo Circulante
Obrigacoes Sociais e Trabalhistas - PC Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais - PC Obrigacoes Sociais
Obrigacoes Trabalhistas - PC Obrigacoes Trabalhistas
Classe
Passivo - PT PT
Passivo Total - PT PT
Passivo Circulante - PC PC
Obrigacoes Sociais e Trabalhistas - PC PC
Obrigacoes Sociais - PC PC
Obrigacoes Trabalhistas - PC PC
Conta
Para Investimentos e Capital de Giro - PL Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados - PL Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial - PL Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao - PL Ajustes Acumulados de Conversao
Outros Resultados Abrangentes - PL Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores - PL Participacao dos Acionistas Nao Controladores
2018 2017 2016
Para Investimentos e Capital de Giro - PL 718958 190556 0
Lucros/Prejuizos Acumulados - PL 0 0 0
Ajustes de Avaliacao Patrimonial - PL -10330 60546 26000
Ajustes Acumulados de Conversao - PL 0 0 0
Outros Resultados Abrangentes - PL 0 0 0
Participacao dos Acionistas Nao Controladores - PL 1431093 1409169 1655894
2015 2014 2013
Para Investimentos e Capital de Giro - PL 0 157650 0
Lucros/Prejuizos Acumulados - PL 0 0 0
Ajustes de Avaliacao Patrimonial - PL 311748 419753 549670
Ajustes Acumulados de Conversao - PL 0 0 0
Outros Resultados Abrangentes - PL 0 0 0
Participacao dos Acionistas Nao Controladores - PL 1584879 2041951 2122037
2012 2011 2010
Para Investimentos e Capital de Giro - PL 150812 770250 718784
Lucros/Prejuizos Acumulados - PL 0 0 0
Ajustes de Avaliacao Patrimonial - PL 367361 640697 965607
Ajustes Acumulados de Conversao - PL 0 0 0
Outros Resultados Abrangentes - PL 0 0 0
Participacao dos Acionistas Nao Controladores - PL 1904644 1730412 1596838
2009
Para Investimentos e Capital de Giro - PL 2705686
Lucros/Prejuizos Acumulados - PL -41277
Ajustes de Avaliacao Patrimonial - PL 221901
Ajustes Acumulados de Conversao - PL 0
Outros Resultados Abrangentes - PL 0
Participacao dos Acionistas Nao Controladores - PL 355406
chk
Para Investimentos e Capital de Giro - PL Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados - PL Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial - PL Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao - PL Ajustes Acumulados de Conversao
Outros Resultados Abrangentes - PL Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores - PL Participacao dos Acionistas Nao Controladores
Classe
Para Investimentos e Capital de Giro - PL PL
Lucros/Prejuizos Acumulados - PL PL
Ajustes de Avaliacao Patrimonial - PL PL
Ajustes Acumulados de Conversao - PL PL
Outros Resultados Abrangentes - PL PL
Participacao dos Acionistas Nao Controladores - PL PL
Data.DRE=data.bulk[header.DRE:(header.DRA-1),]
head(Data.DRE)
Conta
DRE - DRE DRE
Receita de Venda de Bens e/ou Servicos - DRE Receita de Venda de Bens e/ou Servicos
Custo dos Bens e/ou Servicos Vendidos - DRE Custo dos Bens e/ou Servicos Vendidos
Resultado Bruto - DRE Resultado Bruto
Despesas/Receitas Operacionais - DRE Despesas/Receitas Operacionais
Despesas com Vendas - DRE Despesas com Vendas
2018 2017 2016
DRE - DRE NA NA NA
Receita de Venda de Bens e/ou Servicos - DRE 13736780 10734118 8454200
Custo dos Bens e/ou Servicos Vendidos - DRE -11521694 -9099024 -7966878
Resultado Bruto - DRE 2215086 1635094 487322
Despesas/Receitas Operacionais - DRE -1072815 -751224 -708914
Despesas com Vendas - DRE -337404 -250950 -272731
2015 2014 2013
DRE - DRE NA NA NA
Receita de Venda de Bens e/ou Servicos - DRE 10185570 11741629 12829467
Custo dos Bens e/ou Servicos Vendidos - DRE -10013018 -10704864 -11353664
Resultado Bruto - DRE 172552 1036765 1475803
Despesas/Receitas Operacionais - DRE -3801758 -330017 -774923
Despesas com Vendas - DRE -258141 -290930 -336443
2012 2011 2010
DRE - DRE NA NA NA
Receita de Venda de Bens e/ou Servicos - DRE 12708799 11901959 12962395
Custo dos Bens e/ou Servicos Vendidos - DRE -12048300 -10607791 -10431539
Resultado Bruto - DRE 660499 1294168 2530856
Despesas/Receitas Operacionais - DRE -798974 -601349 -570413
Despesas com Vendas - DRE -372937 -458568 -374254
2009
DRE - DRE NA
Receita de Venda de Bens e/ou Servicos - DRE 10924140
Custo dos Bens e/ou Servicos Vendidos - DRE -9440282
Resultado Bruto - DRE 1483858
Despesas/Receitas Operacionais - DRE -309418
Despesas com Vendas - DRE -284139
chk
DRE - DRE
Receita de Venda de Bens e/ou Servicos - DRE Receita de Venda de Bens e/ou Servicos
Custo dos Bens e/ou Servicos Vendidos - DRE Custo dos Bens e/ou Servicos Vendidos
Resultado Bruto - DRE Resultado Bruto
Despesas/Receitas Operacionais - DRE Despesas/Receitas Operacionais
Despesas com Vendas - DRE Despesas com Vendas
Classe
DRE - DRE DRE
Receita de Venda de Bens e/ou Servicos - DRE DRE
Custo dos Bens e/ou Servicos Vendidos - DRE DRE
Resultado Bruto - DRE DRE
Despesas/Receitas Operacionais - DRE DRE
Despesas com Vendas - DRE DRE
Conta 2018 2017 2016 2015
Lucro Basico por Acao - DRE Lucro Basico por Acao 0.00 0.00 0.0 0.00
ON - DRE ON 0.57 0.18 -0.6 -3.28
PN - DRE PN 0.62 0.20 -0.6 -3.28
Lucro Diluido por Acao - DRE Lucro Diluido por Acao 0.00 0.00 0.0 0.00
ON 1 - DRE ON 1 0.57 0.18 -0.6 -3.28
PN 1 - DRE PN 1 0.62 0.20 -0.6 -3.28
2014 2013 2012 2011 2010 2009
Lucro Basico por Acao - DRE 0.00 0.00 0.00 0.00 0.00 0.00
ON - DRE 0.13 -0.14 -0.62 0.23 1.52 1.23
PN - DRE 0.14 -0.14 -0.68 0.25 1.67 1.35
Lucro Diluido por Acao - DRE 0.00 0.00 0.00 0.00 0.00 0.00
ON 1 - DRE 0.13 -0.14 -0.62 0.23 1.52 1.23
PN 1 - DRE 0.14 -0.14 -0.68 0.25 1.67 1.35
chk Classe
Lucro Basico por Acao - DRE Lucro Basico por Acao DRE
ON - DRE ON DRE
PN - DRE PN DRE
Lucro Diluido por Acao - DRE Lucro Diluido por Acao DRE
ON 1 - DRE ON DRE
PN 1 - DRE PN DRE
Data.DRA=data.bulk[header.DRA:(header.DFC-1),]
head(Data.DRA)
Conta
DRA - DRA DRA
Lucro Liquido Consolidado do Periodo - DRA Lucro Liquido Consolidado do Periodo
Outros Resultados Abrangentes - DRA Outros Resultados Abrangentes
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA Ganho (perda) Atuarial com Beneficios de Aposentadoria
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora - DRA Hedge de Fluxo de Caixa na Controladora
2018
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA 828695
Outros Resultados Abrangentes - DRA -59166
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA -59166
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 0
2017
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA 315080
Outros Resultados Abrangentes - DRA 60444
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA 60444
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 0
2016
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA -576843
Outros Resultados Abrangentes - DRA -268065
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA -268065
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 0
2015
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA -3684977
Outros Resultados Abrangentes - DRA -93379
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA -93379
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 0
2014
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA 208479
Outros Resultados Abrangentes - DRA -98059
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA -101190
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 3131
2013
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA 16791
Outros Resultados Abrangentes - DRA 147848
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA 29277
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 105
Hedge de Fluxo de Caixa na Controladora - DRA 118466
2012
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA -531300
Outros Resultados Abrangentes - DRA -229758
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA -250762
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA -1134
Hedge de Fluxo de Caixa na Controladora - DRA 22138
2011
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA 404133
Outros Resultados Abrangentes - DRA -130507
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA -154174
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 161624
Hedge de Fluxo de Caixa na Controladora - DRA -143735
2010
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA 1583650
Outros Resultados Abrangentes - DRA -233497
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA -187551
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA -48512
Hedge de Fluxo de Caixa na Controladora - DRA 0
2009
DRA - DRA NA
Lucro Liquido Consolidado do Periodo - DRA 1275455
Outros Resultados Abrangentes - DRA -638567
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA 46416
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA -676612
Hedge de Fluxo de Caixa na Controladora - DRA 0
chk
DRA - DRA
Lucro Liquido Consolidado do Periodo - DRA Lucro Liquido Consolidado do Periodo
Outros Resultados Abrangentes - DRA Outros Resultados Abrangentes
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA Ganho (perda) Atuarial com Beneficios de Aposentadoria
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora - DRA Hedge de Fluxo de Caixa na Controladora
Classe
DRA - DRA DRA
Lucro Liquido Consolidado do Periodo - DRA DRA
Outros Resultados Abrangentes - DRA DRA
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA DRA
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA DRA
Hedge de Fluxo de Caixa na Controladora - DRA DRA
Conta
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora - DRA Hedge de Fluxo de Caixa na Controladora
Hedge de Fluxo de Caixa em Coligada - DRA Hedge de Fluxo de Caixa em Coligada
Resultado Abrangente Consolidado do Periodo - DRA Resultado Abrangente Consolidado do Periodo
Atribuido a Socios da Empresa Controladora - DRA Atribuido a Socios da Empresa Controladora
Atribuido a Socios Nao Controladores - DRA Atribuido a Socios Nao Controladores
2018
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 0
Hedge de Fluxo de Caixa em Coligada - DRA 0
Resultado Abrangente Consolidado do Periodo - DRA 769529
Atribuido a Socios da Empresa Controladora - DRA 667509
Atribuido a Socios Nao Controladores - DRA 102020
2017
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 0
Hedge de Fluxo de Caixa em Coligada - DRA 0
Resultado Abrangente Consolidado do Periodo - DRA 375524
Atribuido a Socios da Empresa Controladora - DRA 292707
Atribuido a Socios Nao Controladores - DRA 82817
2016
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 0
Hedge de Fluxo de Caixa em Coligada - DRA 0
Resultado Abrangente Consolidado do Periodo - DRA -844908
Atribuido a Socios da Empresa Controladora - DRA -937783
Atribuido a Socios Nao Controladores - DRA 92875
2015
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 0
Hedge de Fluxo de Caixa em Coligada - DRA 0
Resultado Abrangente Consolidado do Periodo - DRA -3778356
Atribuido a Socios da Empresa Controladora - DRA -3329484
Atribuido a Socios Nao Controladores - DRA -448872
2014
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 0
Hedge de Fluxo de Caixa na Controladora - DRA 3131
Hedge de Fluxo de Caixa em Coligada - DRA 0
Resultado Abrangente Consolidado do Periodo - DRA 110420
Atribuido a Socios da Empresa Controladora - DRA 31493
Atribuido a Socios Nao Controladores - DRA 78927
2013
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 105
Hedge de Fluxo de Caixa na Controladora - DRA 118466
Hedge de Fluxo de Caixa em Coligada - DRA 0
Resultado Abrangente Consolidado do Periodo - DRA 164639
Atribuido a Socios da Empresa Controladora - DRA 6170
Atribuido a Socios Nao Controladores - DRA 158469
2012
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA -1134
Hedge de Fluxo de Caixa na Controladora - DRA 22138
Hedge de Fluxo de Caixa em Coligada - DRA 0
Resultado Abrangente Consolidado do Periodo - DRA -761058
Atribuido a Socios da Empresa Controladora - DRA -869332
Atribuido a Socios Nao Controladores - DRA 108274
2011
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA 161624
Hedge de Fluxo de Caixa na Controladora - DRA -143735
Hedge de Fluxo de Caixa em Coligada - DRA 5778
Resultado Abrangente Consolidado do Periodo - DRA 273626
Atribuido a Socios da Empresa Controladora - DRA 102570
Atribuido a Socios Nao Controladores - DRA 171056
2010
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA -48512
Hedge de Fluxo de Caixa na Controladora - DRA 0
Hedge de Fluxo de Caixa em Coligada - DRA 2566
Resultado Abrangente Consolidado do Periodo - DRA 1350153
Atribuido a Socios da Empresa Controladora - DRA 1338343
Atribuido a Socios Nao Controladores - DRA 11810
2009
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA -676612
Hedge de Fluxo de Caixa na Controladora - DRA 0
Hedge de Fluxo de Caixa em Coligada - DRA -8344
Resultado Abrangente Consolidado do Periodo - DRA 636888
Atribuido a Socios da Empresa Controladora - DRA 634459
Atribuido a Socios Nao Controladores - DRA 2429
chk
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora - DRA Hedge de Fluxo de Caixa na Controladora
Hedge de Fluxo de Caixa em Coligada - DRA Hedge de Fluxo de Caixa em Coligada
Resultado Abrangente Consolidado do Periodo - DRA Resultado Abrangente Consolidado do Periodo
Atribuido a Socios da Empresa Controladora - DRA Atribuido a Socios da Empresa Controladora
Atribuido a Socios Nao Controladores - DRA Atribuido a Socios Nao Controladores
Classe
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA DRA
Hedge de Fluxo de Caixa na Controladora - DRA DRA
Hedge de Fluxo de Caixa em Coligada - DRA DRA
Resultado Abrangente Consolidado do Periodo - DRA DRA
Atribuido a Socios da Empresa Controladora - DRA DRA
Atribuido a Socios Nao Controladores - DRA DRA
Data.DFC=data.bulk[header.DFC:(header.DVA-1),]
head(Data.DFC)
Conta
DFC - DFC DFC
Caixa Liquido Atividades Operacionais - DFC-O Caixa Liquido Atividades Operacionais
Caixa Gerado nas Operacoes - DFC-O Caixa Gerado nas Operacoes
Lucro Liquido do Exercicio - DFC-O Lucro Liquido do Exercicio
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O Encargos e Variacoes Monetarias/Cambiais Liquidas
Despesas de Juros - DFC-O Despesas de Juros
2018 2017
DFC - DFC NA NA
Caixa Liquido Atividades Operacionais - DFC-O 509618 877029
Caixa Gerado nas Operacoes - DFC-O 3624953 2559308
Lucro Liquido do Exercicio - DFC-O 828695 315080
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O 346360 200702
Despesas de Juros - DFC-O 392031 636934
2016 2015
DFC - DFC NA NA
Caixa Liquido Atividades Operacionais - DFC-O -310312 103414
Caixa Gerado nas Operacoes - DFC-O 1033361 721707
Lucro Liquido do Exercicio - DFC-O -576843 -3684977
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O 33433 1364544
Despesas de Juros - DFC-O 451913 253545
2014 2013
DFC - DFC NA NA
Caixa Liquido Atividades Operacionais - DFC-O 1411597 1106293
Caixa Gerado nas Operacoes - DFC-O 1912371 1552172
Lucro Liquido do Exercicio - DFC-O 208479 16791
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O 565923 805437
Despesas de Juros - DFC-O 204557 242325
2012 2011
DFC - DFC NA NA
Caixa Liquido Atividades Operacionais - DFC-O 3409075 -470631
Caixa Gerado nas Operacoes - DFC-O 1002221 1560739
Lucro Liquido do Exercicio - DFC-O -531300 404133
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O 541337 490460
Despesas de Juros - DFC-O 284808 277737
2010 2009
DFC - DFC NA NA
Caixa Liquido Atividades Operacionais - DFC-O 1347760 2336650
Caixa Gerado nas Operacoes - DFC-O 2920756 1192686
Lucro Liquido do Exercicio - DFC-O 1583650 1275455
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O -108757 -1110871
Despesas de Juros - DFC-O 437760 339711
chk
DFC - DFC
Caixa Liquido Atividades Operacionais - DFC-O Caixa Liquido Atividades Operacionais
Caixa Gerado nas Operacoes - DFC-O Caixa Gerado nas Operacoes
Lucro Liquido do Exercicio - DFC-O Lucro Liquido do Exercicio
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O Encargos e Variacoes Monetarias/Cambiais Liquidas
Despesas de Juros - DFC-O Despesas de Juros
Classe
DFC - DFC DFC
Caixa Liquido Atividades Operacionais - DFC-O DFC-O
Caixa Gerado nas Operacoes - DFC-O DFC-O
Lucro Liquido do Exercicio - DFC-O DFC-O
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O DFC-O
Despesas de Juros - DFC-O DFC-O
Conta
Recebimento Por Aumento de Capital Social - DFC-F Recebimento Por Aumento de Capital Social
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F Reducao de capital em controlada - participacao dos acionistas nao controladores
Variacao Cambial s/ Caixa e Equivalentes - DFC-F Variacao Cambial s/ Caixa e Equivalentes
Aumento (Reducao) de Caixa e Equivalentes - DFC-F Aumento (Reducao) de Caixa e Equivalentes
Saldo Inicial de Caixa e Equivalentes - DFC-F Saldo Inicial de Caixa e Equivalentes
Saldo Final de Caixa e Equivalentes - DFC-F Saldo Final de Caixa e Equivalentes
2018
Recebimento Por Aumento de Capital Social - DFC-F 0
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F 0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F -708
Aumento (Reducao) de Caixa e Equivalentes - DFC-F -663783
Saldo Inicial de Caixa e Equivalentes - DFC-F 1770573
Saldo Final de Caixa e Equivalentes - DFC-F 1106790
2017
Recebimento Por Aumento de Capital Social - DFC-F 0
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F -300000
Variacao Cambial s/ Caixa e Equivalentes - DFC-F 7431
Aumento (Reducao) de Caixa e Equivalentes - DFC-F 1050703
Saldo Inicial de Caixa e Equivalentes - DFC-F 719870
Saldo Final de Caixa e Equivalentes - DFC-F 1770573
2016
Recebimento Por Aumento de Capital Social - DFC-F 1050295
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F 0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F -14203
Aumento (Reducao) de Caixa e Equivalentes - DFC-F -80402
Saldo Inicial de Caixa e Equivalentes - DFC-F 800272
Saldo Final de Caixa e Equivalentes - DFC-F 719870
2015
Recebimento Por Aumento de Capital Social - DFC-F 0
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F 0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F 43162
Aumento (Reducao) de Caixa e Equivalentes - DFC-F -1309540
Saldo Inicial de Caixa e Equivalentes - DFC-F 2109812
Saldo Final de Caixa e Equivalentes - DFC-F 800272
2014
Recebimento Por Aumento de Capital Social - DFC-F 0
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F 0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F 8761
Aumento (Reducao) de Caixa e Equivalentes - DFC-F -523375
Saldo Inicial de Caixa e Equivalentes - DFC-F 2633187
Saldo Final de Caixa e Equivalentes - DFC-F 2109812
2013
Recebimento Por Aumento de Capital Social - DFC-F 0
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F 0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F -14241
Aumento (Reducao) de Caixa e Equivalentes - DFC-F -490131
Saldo Inicial de Caixa e Equivalentes - DFC-F 3123318
Saldo Final de Caixa e Equivalentes - DFC-F 2633187
2012
Recebimento Por Aumento de Capital Social - DFC-F 0
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F 0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F 10610
Aumento (Reducao) de Caixa e Equivalentes - DFC-F 279452
Saldo Inicial de Caixa e Equivalentes - DFC-F 2901312
Saldo Final de Caixa e Equivalentes - DFC-F 3180764
2011
Recebimento Por Aumento de Capital Social - DFC-F 0
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F 0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F -7138
Aumento (Reducao) de Caixa e Equivalentes - DFC-F -1244467
Saldo Inicial de Caixa e Equivalentes - DFC-F 4145779
Saldo Final de Caixa e Equivalentes - DFC-F 2901312
2010
Recebimento Por Aumento de Capital Social - DFC-F 0
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F 0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F -642
Aumento (Reducao) de Caixa e Equivalentes - DFC-F 2047583
Saldo Inicial de Caixa e Equivalentes - DFC-F 2098196
Saldo Final de Caixa e Equivalentes - DFC-F 4145779
2009
Recebimento Por Aumento de Capital Social - DFC-F 0
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F 0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F -12167
Aumento (Reducao) de Caixa e Equivalentes - DFC-F -826045
Saldo Inicial de Caixa e Equivalentes - DFC-F 2924241
Saldo Final de Caixa e Equivalentes - DFC-F 2098196
chk
Recebimento Por Aumento de Capital Social - DFC-F
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F
Variacao Cambial s/ Caixa e Equivalentes - DFC-F Variacao Cambial s/ Caixa e Equivalentes
Aumento (Reducao) de Caixa e Equivalentes - DFC-F Aumento (Reducao) de Caixa e Equivalentes
Saldo Inicial de Caixa e Equivalentes - DFC-F Saldo Inicial de Caixa e Equivalentes
Saldo Final de Caixa e Equivalentes - DFC-F Saldo Final de Caixa e Equivalentes
Classe
Recebimento Por Aumento de Capital Social - DFC-F DFC-F
Reducao de capital em controlada - participacao dos acionistas nao controladores - DFC-F DFC-F
Variacao Cambial s/ Caixa e Equivalentes - DFC-F DFC-F
Aumento (Reducao) de Caixa e Equivalentes - DFC-F DFC-F
Saldo Inicial de Caixa e Equivalentes - DFC-F DFC-F
Saldo Final de Caixa e Equivalentes - DFC-F DFC-F
Data.DVA=data.bulk[header.DVA:(header.MERC-1),]
head(Data.DVA)
Conta
DVA - DVA DVA
Receitas - DVA Receitas
Vendas de Mercadorias, Produtos e Servicos - DVA Vendas de Mercadorias, Produtos e Servicos
Outras Receitas - DVA Outras Receitas
Receitas refs. a Construcao de Ativos Proprios - DVA Receitas refs. a Construcao de Ativos Proprios
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA Provisao/Reversao de Crads. Liquidacao Duvidosa
2018 2017
DVA - DVA NA NA
Receitas - DVA 17829112 14361690
Vendas de Mercadorias, Produtos e Servicos - DVA 17499783 14000424
Outras Receitas - DVA 371247 385579
Receitas refs. a Construcao de Ativos Proprios - DVA 0 0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA -41918 -24313
2016 2015
DVA - DVA NA NA
Receitas - DVA 11196769 13801739
Vendas de Mercadorias, Produtos e Servicos - DVA 11101311 13571271
Outras Receitas - DVA 151081 248826
Receitas refs. a Construcao de Ativos Proprios - DVA 0 0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA -55623 -18358
2014 2013
DVA - DVA NA NA
Receitas - DVA 16846406 17997454
Vendas de Mercadorias, Produtos e Servicos - DVA 16245689 17863766
Outras Receitas - DVA 610142 150737
Receitas refs. a Construcao de Ativos Proprios - DVA 0 0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA -9425 -17049
2012 2011
DVA - DVA NA NA
Receitas - DVA 16759074 15790912
Vendas de Mercadorias, Produtos e Servicos - DVA 16696407 15832381
Outras Receitas - DVA 64721 30691
Receitas refs. a Construcao de Ativos Proprios - DVA 0 0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA -2054 -72160
2010 2009
DVA - DVA NA NA
Receitas - DVA 17046605 14607360
Vendas de Mercadorias, Produtos e Servicos - DVA 16992062 14605600
Outras Receitas - DVA 44714 8733
Receitas refs. a Construcao de Ativos Proprios - DVA 0 0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA 9829 -6973
chk
DVA - DVA
Receitas - DVA Receitas
Vendas de Mercadorias, Produtos e Servicos - DVA Vendas de Mercadorias, Produtos e Servicos
Outras Receitas - DVA Outras Receitas
Receitas refs. a Construcao de Ativos Proprios - DVA Receitas refs. a Construcao de Ativos Proprios
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA Provisao/Reversao de Crads. Liquidacao Duvidosa
Classe
DVA - DVA DVA
Receitas - DVA DVA
Vendas de Mercadorias, Produtos e Servicos - DVA DVA
Outras Receitas - DVA DVA
Receitas refs. a Construcao de Ativos Proprios - DVA DVA
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA DVA
Conta
Remuneracao de Capitais Proprios - DVA Remuneracao de Capitais Proprios
Juros sobre o Capital Proprio - DVA Juros sobre o Capital Proprio
Dividendos - DVA Dividendos
Lucros Retidos / Prejuizo do Periodo - DVA Lucros Retidos / Prejuizo do Periodo
Part. Nao Controladores nos Lucros Retidos - DVA Part. Nao Controladores nos Lucros Retidos
Outros - DVA Outros
2018 2017 2016
Remuneracao de Capitais Proprios - DVA 828695 315080 -576843
Juros sobre o Capital Proprio - DVA 0 0 0
Dividendos - DVA 0 0 0
Lucros Retidos / Prejuizo do Periodo - DVA 726658 233015 -669952
Part. Nao Controladores nos Lucros Retidos - DVA 102037 82065 93109
Outros - DVA 0 0 0
2015 2014 2013
Remuneracao de Capitais Proprios - DVA -3684977 208479 16791
Juros sobre o Capital Proprio - DVA 0 0 0
Dividendos - DVA 0 0 0
Lucros Retidos / Prejuizo do Periodo - DVA -3236105 129552 -141678
Part. Nao Controladores nos Lucros Retidos - DVA -448872 78927 158469
Outros - DVA 0 0 0
2012 2011 2010
Remuneracao de Capitais Proprios - DVA -531300 610629 1583650
Juros sobre o Capital Proprio - DVA 0 81577 550144
Dividendos - DVA 0 0 0
Lucros Retidos / Prejuizo do Periodo - DVA -639574 357996 1021696
Part. Nao Controladores nos Lucros Retidos - DVA 108274 171056 11810
Outros - DVA 0 0 0
2009
Remuneracao de Capitais Proprios - DVA 1275455
Juros sobre o Capital Proprio - DVA 397885
Dividendos - DVA 73119
Lucros Retidos / Prejuizo do Periodo - DVA 806880
Part. Nao Controladores nos Lucros Retidos - DVA -2429
Outros - DVA 0
chk
Remuneracao de Capitais Proprios - DVA Remuneracao de Capitais Proprios
Juros sobre o Capital Proprio - DVA Juros sobre o Capital Proprio
Dividendos - DVA Dividendos
Lucros Retidos / Prejuizo do Periodo - DVA Lucros Retidos / Prejuizo do Periodo
Part. Nao Controladores nos Lucros Retidos - DVA Part. Nao Controladores nos Lucros Retidos
Outros - DVA Outros
Classe
Remuneracao de Capitais Proprios - DVA DVA
Juros sobre o Capital Proprio - DVA DVA
Dividendos - DVA DVA
Lucros Retidos / Prejuizo do Periodo - DVA DVA
Part. Nao Controladores nos Lucros Retidos - DVA DVA
Outros - DVA DVA
Data.MERC=data.bulk[header.MERC:(header.FIM-1),]
head(Data.MERC)
Conta 2018
Mercado - MERC Mercado NA
IGP-DI - MERC IGP-DI 0.07102
Fator de Correcao - MERC Fator de Correcao 1.00000
Cotacao USIM5 - MERC Cotacao USIM5 9.22000
Numero de acoes - MERC Numero de acoes 1253079108.00000
2017 2016 2015
Mercado - MERC NA NA NA
IGP-DI - MERC -0.0042 0.07150 0.1068
Fator de Correcao - MERC 1.0710 0.99162 1.1481
Cotacao USIM5 - MERC 9.1000 4.10000 1.5500
Numero de acoes - MERC 1253079108.0000 1253079108.00000 1013786190.0000
2014 2013 2012
Mercado - MERC NA NA NA
IGP-DI - MERC 0.0378 0.0553 0.0811
Fator de Correcao - MERC 1.2199 1.1551 1.3372
Cotacao USIM5 - MERC 5.0500 14.2100 12.8000
Numero de acoes - MERC 1013786190.0000 1013786190.0000 1013786190.0000
2011 2010 2009
Mercado - MERC NA NA NA
IGP-DI - MERC 0.0501 0.1131 -0.0144
Fator de Correcao - MERC 1.4585 1.4566 1.7811
Cotacao USIM5 - MERC 10.1500 19.1600 51.0000
Numero de acoes - MERC 1013786190.0000 1013786190.0000 506893095.0000
chk Classe
Mercado - MERC MERC
IGP-DI - MERC MERC
Fator de Correcao - MERC MERC
Cotacao USIM5 - MERC MERC
Numero de acoes - MERC MERC
Conta 2018
Mercado - MERC Mercado NA
IGP-DI - MERC IGP-DI 0.07102
Fator de Correcao - MERC Fator de Correcao 1.00000
Cotacao USIM5 - MERC Cotacao USIM5 9.22000
Numero de acoes - MERC Numero de acoes 1253079108.00000
2017 2016 2015
Mercado - MERC NA NA NA
IGP-DI - MERC -0.0042 0.07150 0.1068
Fator de Correcao - MERC 1.0710 0.99162 1.1481
Cotacao USIM5 - MERC 9.1000 4.10000 1.5500
Numero de acoes - MERC 1253079108.0000 1253079108.00000 1013786190.0000
2014 2013 2012
Mercado - MERC NA NA NA
IGP-DI - MERC 0.0378 0.0553 0.0811
Fator de Correcao - MERC 1.2199 1.1551 1.3372
Cotacao USIM5 - MERC 5.0500 14.2100 12.8000
Numero de acoes - MERC 1013786190.0000 1013786190.0000 1013786190.0000
2011 2010 2009
Mercado - MERC NA NA NA
IGP-DI - MERC 0.0501 0.1131 -0.0144
Fator de Correcao - MERC 1.4585 1.4566 1.7811
Cotacao USIM5 - MERC 10.1500 19.1600 51.0000
Numero de acoes - MERC 1013786190.0000 1013786190.0000 506893095.0000
chk Classe
Mercado - MERC MERC
IGP-DI - MERC MERC
Fator de Correcao - MERC MERC
Cotacao USIM5 - MERC MERC
Numero de acoes - MERC MERC
Análise Fundamentalista (IV)
Indentificar os índices dos subgrupos e separa os subgrupos de contas.
Explore as novas Tabelas…
# Identificar Index divisorias dentro do Ativo: Ativo Circulante, Ativo Nao Circulante, RLP, Perm
header.AC=as.numeric(which(rownames(Data.Ativo) == "Ativo Circulante - AC"))
header.ANC=as.numeric(which(rownames(Data.Ativo) == "Ativo Nao Circulante - ANC"))
header.INV=as.numeric(which(rownames(Data.Ativo) == "Investimentos - ANC"))
header.PERM=as.numeric(which(rownames(Data.Ativo) == "Imobilizado - ANC"))
# Separar os subconjuntos de contas Ativo: Ativo Circulante, Ativo Nao Circulante, RLP, Perm
end.Ativo=nrow(Data.Ativo)
ncol(Data.Ativo)
[1] 13
Data.AC=Data.Ativo[header.AC:(header.ANC-1),]
head(Data.AC)
Conta
Ativo Circulante - AC Ativo Circulante
Caixa e Equivalentes de Caixa - AC Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - AC Titulos para Negociacao
Titulos Disponiveis para Venda - AC Titulos Disponiveis para Venda
2018 2017
Ativo Circulante - AC 8324317 7254755
Caixa e Equivalentes de Caixa - AC 1106790 1770573
Aplicacoes Financeiras - AC 586559 543715
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
Titulos para Negociacao - AC 0 0
Titulos Disponiveis para Venda - AC 0 0
2016 2015
Ativo Circulante - AC 6420478 6894842
Caixa e Equivalentes de Caixa - AC 719870 800272
Aplicacoes Financeiras - AC 1537584 1224185
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
Titulos para Negociacao - AC 0 0
Titulos Disponiveis para Venda - AC 0 0
2014 2013
Ativo Circulante - AC 8245211 9460294
Caixa e Equivalentes de Caixa - AC 2109812 2633187
Aplicacoes Financeiras - AC 742091 835629
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
Titulos para Negociacao - AC 0 0
Titulos Disponiveis para Venda - AC 0 0
2012 2011
Ativo Circulante - AC 10780645 12616945
Caixa e Equivalentes de Caixa - AC 3180764 2901312
Aplicacoes Financeiras - AC 1537558 2289383
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
Titulos para Negociacao - AC 0 0
Titulos Disponiveis para Venda - AC 0 0
2010 2009
Ativo Circulante - AC 12270576 9239835
Caixa e Equivalentes de Caixa - AC 4145779 3083047
Aplicacoes Financeiras - AC 397787 2098196
Aplicacoes Financeiras Avaliadas a Valor Justo - AC 0 0
Titulos para Negociacao - AC 0 0
Titulos Disponiveis para Venda - AC 0 0
chk
Ativo Circulante - AC Ativo Circulante
Caixa e Equivalentes de Caixa - AC Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - AC Titulos para Negociacao
Titulos Disponiveis para Venda - AC Titulos Disponiveis para Venda
Classe
Ativo Circulante - AC AC
Caixa e Equivalentes de Caixa - AC AC
Aplicacoes Financeiras - AC AC
Aplicacoes Financeiras Avaliadas a Valor Justo - AC AC
Titulos para Negociacao - AC AC
Titulos Disponiveis para Venda - AC AC
Conta
Impostos a Recuperar - AC Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados - AC Imposto de Renda e Contribuicao Social Antecipados
Dividendos a Receber - AC Dividendos a Receber
Adiantamentos a Fornecedores - AC Adiantamentos a Fornecedores
Outras Contas a Receber - AC Outras Contas a Receber
Instrumentos Financeiros - AC Instrumentos Financeiros
2018 2017
Impostos a Recuperar - AC 617731 176851
Imposto de Renda e Contribuicao Social Antecipados - AC 130197 185614
Dividendos a Receber - AC 13562 139078
Adiantamentos a Fornecedores - AC 4050 4332
Outras Contas a Receber - AC 347 115590
Instrumentos Financeiros - AC 90155 12
2016 2015
Impostos a Recuperar - AC 125191 210946
Imposto de Renda e Contribuicao Social Antecipados - AC 113409 166252
Dividendos a Receber - AC 2463 2357
Adiantamentos a Fornecedores - AC 7226 12477
Outras Contas a Receber - AC 86548 148955
Instrumentos Financeiros - AC 44669 152560
2014 2013
Impostos a Recuperar - AC 358418 323520
Imposto de Renda e Contribuicao Social Antecipados - AC 0 0
Dividendos a Receber - AC 12641 12413
Adiantamentos a Fornecedores - AC 17848 13541
Outras Contas a Receber - AC 175564 106396
Instrumentos Financeiros - AC 65392 45637
2012 2011
Impostos a Recuperar - AC 485532 799635
Imposto de Renda e Contribuicao Social Antecipados - AC 0 0
Dividendos a Receber - AC 12134 13587
Adiantamentos a Fornecedores - AC 33431 71758
Outras Contas a Receber - AC 132866 198495
Instrumentos Financeiros - AC 50093 29464
2010 2009
Impostos a Recuperar - AC 823271 434756
Imposto de Renda e Contribuicao Social Antecipados - AC 0 NA
Dividendos a Receber - AC 56324 0
Adiantamentos a Fornecedores - AC 70065 77221
Outras Contas a Receber - AC 175942 172939
Instrumentos Financeiros - AC 24294 36279
chk
Impostos a Recuperar - AC Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados - AC
Dividendos a Receber - AC Dividendos a Receber
Adiantamentos a Fornecedores - AC Adiantamentos a Fornecedores
Outras Contas a Receber - AC Outras Contas a Receber
Instrumentos Financeiros - AC Instrumentos Financeiros
Classe
Impostos a Recuperar - AC AC
Imposto de Renda e Contribuicao Social Antecipados - AC AC
Dividendos a Receber - AC AC
Adiantamentos a Fornecedores - AC AC
Outras Contas a Receber - AC AC
Instrumentos Financeiros - AC AC
Data.ANC=Data.Ativo[header.ANC:(header.Passivo-1),]
head(Data.ANC)
Conta
Ativo Nao Circulante - ANC Ativo Nao Circulante
Ativo Realizavel a Longo Prazo - ANC Ativo Realizavel a Longo Prazo
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - ANC Titulos para Negociacao
Titulos Disponiveis para Venda - ANC Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC Aplicacoes Financeiras Avaliadas ao Custo Amortizado
2018
Ativo Nao Circulante - ANC 18199534
Ativo Realizavel a Longo Prazo - ANC 4700822
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2017
Ativo Nao Circulante - ANC 18729722
Ativo Realizavel a Longo Prazo - ANC 4115862
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2016
Ativo Nao Circulante - ANC 19834267
Ativo Realizavel a Longo Prazo - ANC 4265283
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2015
Ativo Nao Circulante - ANC 20863490
Ativo Realizavel a Longo Prazo - ANC 4697628
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2014
Ativo Nao Circulante - ANC 22238851
Ativo Realizavel a Longo Prazo - ANC 3179812
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2013
Ativo Nao Circulante - ANC 21897700
Ativo Realizavel a Longo Prazo - ANC 2830342
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2012
Ativo Nao Circulante - ANC 21993574
Ativo Realizavel a Longo Prazo - ANC 2444744
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2011
Ativo Nao Circulante - ANC 20743480
Ativo Realizavel a Longo Prazo - ANC 1939992
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2010
Ativo Nao Circulante - ANC 19514175
Ativo Realizavel a Longo Prazo - ANC 1436133
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2009
Ativo Nao Circulante - ANC 16701095
Ativo Realizavel a Longo Prazo - ANC 1206748
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
chk
Ativo Nao Circulante - ANC Ativo Nao Circulante
Ativo Realizavel a Longo Prazo - ANC Ativo Realizavel a Longo Prazo
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - ANC Titulos para Negociacao
Titulos Disponiveis para Venda - ANC Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC Aplicacoes Financeiras Avaliadas ao Custo Amortizado
Classe
Ativo Nao Circulante - ANC ANC
Ativo Realizavel a Longo Prazo - ANC ANC
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC ANC
Titulos para Negociacao - ANC ANC
Titulos Disponiveis para Venda - ANC ANC
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC ANC
Conta 2018 2017
Imobilizado Arrendado - ANC Imobilizado Arrendado 0 0
Imobilizado em Andamento - ANC Imobilizado em Andamento 846012 844225
Intangivel - ANC Intangivel 695596 677190
Intangiveis - ANC Intangiveis 0 0
Contrato de Concessao - ANC Contrato de Concessao 0 0
Goodwill - ANC Goodwill 0 0
2016 2015 2014 2013 2012
Imobilizado Arrendado - ANC 0 0 0 0 0
Imobilizado em Andamento - ANC 892605 1425978 2011008 1916903 2209796
Intangivel - ANC 693918 337922 2377679 2400577 2442648
Intangiveis - ANC 0 0 0 0 0
Contrato de Concessao - ANC 0 0 0 0 0
Goodwill - ANC 0 0 0 0 0
2011 2010 2009
Imobilizado Arrendado - ANC 0 0 0
Imobilizado em Andamento - ANC 5431352 4530621 2884268
Intangivel - ANC 2453952 1741850 1737495
Intangiveis - ANC 0 0 0
Contrato de Concessao - ANC 0 0 0
Goodwill - ANC 0 0 0
chk Classe
Imobilizado Arrendado - ANC Imobilizado Arrendado ANC
Imobilizado em Andamento - ANC Imobilizado em Andamento ANC
Intangivel - ANC Intangivel ANC
Intangiveis - ANC Intangiveis ANC
Contrato de Concessao - ANC Contrato de Concessao ANC
Goodwill - ANC Goodwill ANC
Data.RLP=Data.Ativo[header.ANC:(header.INV-1),]
head(Data.RLP)
Conta
Ativo Nao Circulante - ANC Ativo Nao Circulante
Ativo Realizavel a Longo Prazo - ANC Ativo Realizavel a Longo Prazo
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - ANC Titulos para Negociacao
Titulos Disponiveis para Venda - ANC Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC Aplicacoes Financeiras Avaliadas ao Custo Amortizado
2018
Ativo Nao Circulante - ANC 18199534
Ativo Realizavel a Longo Prazo - ANC 4700822
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2017
Ativo Nao Circulante - ANC 18729722
Ativo Realizavel a Longo Prazo - ANC 4115862
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2016
Ativo Nao Circulante - ANC 19834267
Ativo Realizavel a Longo Prazo - ANC 4265283
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2015
Ativo Nao Circulante - ANC 20863490
Ativo Realizavel a Longo Prazo - ANC 4697628
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2014
Ativo Nao Circulante - ANC 22238851
Ativo Realizavel a Longo Prazo - ANC 3179812
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2013
Ativo Nao Circulante - ANC 21897700
Ativo Realizavel a Longo Prazo - ANC 2830342
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2012
Ativo Nao Circulante - ANC 21993574
Ativo Realizavel a Longo Prazo - ANC 2444744
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2011
Ativo Nao Circulante - ANC 20743480
Ativo Realizavel a Longo Prazo - ANC 1939992
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2010
Ativo Nao Circulante - ANC 19514175
Ativo Realizavel a Longo Prazo - ANC 1436133
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
2009
Ativo Nao Circulante - ANC 16701095
Ativo Realizavel a Longo Prazo - ANC 1206748
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC 0
Titulos para Negociacao - ANC 0
Titulos Disponiveis para Venda - ANC 0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC 0
chk
Ativo Nao Circulante - ANC Ativo Nao Circulante
Ativo Realizavel a Longo Prazo - ANC Ativo Realizavel a Longo Prazo
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - ANC Titulos para Negociacao
Titulos Disponiveis para Venda - ANC Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC Aplicacoes Financeiras Avaliadas ao Custo Amortizado
Classe
Ativo Nao Circulante - ANC ANC
Ativo Realizavel a Longo Prazo - ANC ANC
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC ANC
Titulos para Negociacao - ANC ANC
Titulos Disponiveis para Venda - ANC ANC
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC ANC
Conta
Depositos Judiciais - ANC Depositos Judiciais
Instrumentos Financeiros - ANC Instrumentos Financeiros
Impostos a Recuperar - ANC Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados - ANC Imposto de Renda e Contribuicao Social Antecipados
Valores a receber Eletrobras - Valores a receber Eletrobras
Outros - ANC Outros
2018 2017
Depositos Judiciais - ANC 523557 675600
Instrumentos Financeiros - ANC 3553 1184
Impostos a Recuperar - ANC 454284 54881
Imposto de Renda e Contribuicao Social Antecipados - ANC 0 0
Valores a receber Eletrobras - 676023 NA
Outros - ANC 184750 48617
2016 2015
Depositos Judiciais - ANC 660229 597392
Instrumentos Financeiros - ANC 100670 559654
Impostos a Recuperar - ANC 96070 81263
Imposto de Renda e Contribuicao Social Antecipados - ANC 68172 0
Valores a receber Eletrobras - NA NA
Outros - ANC 29552 29561
2014 2013
Depositos Judiciais - ANC 566408 565404
Instrumentos Financeiros - ANC 252027 40608
Impostos a Recuperar - ANC 95835 113474
Imposto de Renda e Contribuicao Social Antecipados - ANC NA 0
Valores a receber Eletrobras - NA NA
Outros - ANC 36933 76176
2012 2011
Depositos Judiciais - ANC 430717 486327
Instrumentos Financeiros - ANC 286508 435972
Impostos a Recuperar - ANC 132451 154737
Imposto de Renda e Contribuicao Social Antecipados - ANC 0 0
Valores a receber Eletrobras - NA NA
Outros - ANC 68558 60100
2010 2009
Depositos Judiciais - ANC 443879 315038
Instrumentos Financeiros - ANC 356899 184423
Impostos a Recuperar - ANC 174970 271373
Imposto de Renda e Contribuicao Social Antecipados - ANC 0 0
Valores a receber Eletrobras - NA NA
Outros - ANC 56202 18783
chk
Depositos Judiciais - ANC Depositos Judiciais
Instrumentos Financeiros - ANC Instrumentos Financeiros
Impostos a Recuperar - ANC Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados - ANC
Valores a receber Eletrobras -
Outros - ANC Outros
Classe
Depositos Judiciais - ANC ANC
Instrumentos Financeiros - ANC ANC
Impostos a Recuperar - ANC ANC
Imposto de Renda e Contribuicao Social Antecipados - ANC ANC
Valores a receber Eletrobras -
Outros - ANC ANC
Data.PERM=Data.Ativo[header.INV:(end.Ativo),]
head(Data.PERM)
Conta
Investimentos - ANC Investimentos
Participacoes Societarias - ANC Participacoes Societarias
Participacoes em Coligadas - ANC Participacoes em Coligadas
Outras Participacoes Societarias - ANC Outras Participacoes Societarias
Propriedades para Investimento - ANC Propriedades para Investimento
Imobilizado - ANC Imobilizado
2018 2017 2016 2015
Investimentos - ANC 1088094 1054052 1126176 1084311
Participacoes Societarias - ANC 1088094 1054052 1126176 1084311
Participacoes em Coligadas - ANC 473765 447315 525309 504148
Outras Participacoes Societarias - ANC 614329 606737 600867 580163
Propriedades para Investimento - ANC 0 0 0 0
Imobilizado - ANC 11715022 12882618 13748890 14743629
2014 2013 2012 2011
Investimentos - ANC 1145787 1159948 453062 428382
Participacoes Societarias - ANC 1145787 1159948 453062 428382
Participacoes em Coligadas - ANC 495078 473784 450146 425198
Outras Participacoes Societarias - ANC 650709 686164 2916 3184
Propriedades para Investimento - ANC 0 0 0 0
Imobilizado - ANC 15535573 15506833 16653120 15921154
2010 2009
Investimentos - ANC 2061186 1806734
Participacoes Societarias - ANC 2061186 1806734
Participacoes em Coligadas - ANC 1677101 1804315
Outras Participacoes Societarias - ANC 384085 2419
Propriedades para Investimento - ANC 0 0
Imobilizado - ANC 14275006 11950118
chk
Investimentos - ANC Investimentos
Participacoes Societarias - ANC Participacoes Societarias
Participacoes em Coligadas - ANC Participacoes em Coligadas
Outras Participacoes Societarias - ANC Outras Participacoes Societarias
Propriedades para Investimento - ANC Propriedades para Investimento
Imobilizado - ANC Imobilizado
Classe
Investimentos - ANC ANC
Participacoes Societarias - ANC ANC
Participacoes em Coligadas - ANC ANC
Outras Participacoes Societarias - ANC ANC
Propriedades para Investimento - ANC ANC
Imobilizado - ANC ANC
Conta 2018 2017
Imobilizado Arrendado - ANC Imobilizado Arrendado 0 0
Imobilizado em Andamento - ANC Imobilizado em Andamento 846012 844225
Intangivel - ANC Intangivel 695596 677190
Intangiveis - ANC Intangiveis 0 0
Contrato de Concessao - ANC Contrato de Concessao 0 0
Goodwill - ANC Goodwill 0 0
2016 2015 2014 2013 2012
Imobilizado Arrendado - ANC 0 0 0 0 0
Imobilizado em Andamento - ANC 892605 1425978 2011008 1916903 2209796
Intangivel - ANC 693918 337922 2377679 2400577 2442648
Intangiveis - ANC 0 0 0 0 0
Contrato de Concessao - ANC 0 0 0 0 0
Goodwill - ANC 0 0 0 0 0
2011 2010 2009
Imobilizado Arrendado - ANC 0 0 0
Imobilizado em Andamento - ANC 5431352 4530621 2884268
Intangivel - ANC 2453952 1741850 1737495
Intangiveis - ANC 0 0 0
Contrato de Concessao - ANC 0 0 0
Goodwill - ANC 0 0 0
chk Classe
Imobilizado Arrendado - ANC Imobilizado Arrendado ANC
Imobilizado em Andamento - ANC Imobilizado em Andamento ANC
Intangivel - ANC Intangivel ANC
Intangiveis - ANC Intangiveis ANC
Contrato de Concessao - ANC Contrato de Concessao ANC
Goodwill - ANC Goodwill ANC
# Identificar Index divisorias dentro do Passivo: Passivo Circulante, Passivo Nao Circulante, PL
header.PC=as.numeric(which(rownames(Data.Passivo) == "Passivo Circulante - PC"))
header.PNC=as.numeric(which(rownames(Data.Passivo) == "Passivo Nao Circulante - PNC"))
header.PL=as.numeric(which(rownames(Data.Passivo) == "Patrimonio Liquido Consolidado - PL"))
# Separar os subconjuntos de contas Passivo: Passivo Circulante, Passivo Nao Circulante, PL
end.Passivo=nrow(Data.Passivo)
ncol(Data.Ativo)
[1] 13
Data.PC=Data.Passivo[header.PC:(header.PNC-1),]
head(Data.PC)
Conta
Passivo Circulante - PC Passivo Circulante
Obrigacoes Sociais e Trabalhistas - PC Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais - PC Obrigacoes Sociais
Obrigacoes Trabalhistas - PC Obrigacoes Trabalhistas
Fornecedores - PC Fornecedores
Fornecedores Nacionais - PC Fornecedores Nacionais
2018 2017 2016 2015
Passivo Circulante - PC 3335670 3046420 1752244 4495923
Obrigacoes Sociais e Trabalhistas - PC 205583 188735 197076 278149
Obrigacoes Sociais - PC 0 0 0 0
Obrigacoes Trabalhistas - PC 0 0 0 0
Fornecedores - PC 1133763 976917 846377 820571
Fornecedores Nacionais - PC 0 0 0 0
2014 2013 2012 2011
Passivo Circulante - PC 4769426 5087491 5402921 4092173
Obrigacoes Sociais e Trabalhistas - PC 280284 250849 0 0
Obrigacoes Sociais - PC 0 0 0 0
Obrigacoes Trabalhistas - PC 0 0 0 0
Fornecedores - PC 1671540 2422024 2283644 1462373
Fornecedores Nacionais - PC 0 0 0 0
2010 2009
Passivo Circulante - PC 3497015 3036027
Obrigacoes Sociais e Trabalhistas - PC 0 206519
Obrigacoes Sociais - PC 0 0
Obrigacoes Trabalhistas - PC 0 0
Fornecedores - PC 1288109 815286
Fornecedores Nacionais - PC 0 0
chk
Passivo Circulante - PC Passivo Circulante
Obrigacoes Sociais e Trabalhistas - PC Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais - PC Obrigacoes Sociais
Obrigacoes Trabalhistas - PC Obrigacoes Trabalhistas
Fornecedores - PC Fornecedores
Fornecedores Nacionais - PC Fornecedores Nacionais
Classe
Passivo Circulante - PC PC
Obrigacoes Sociais e Trabalhistas - PC PC
Obrigacoes Sociais - PC PC
Obrigacoes Trabalhistas - PC PC
Fornecedores - PC PC
Fornecedores Nacionais - PC PC
Conta
Provisoes para Garantias - PC Provisoes para Garantias
Provisoes para Reestruturacao - PC Provisoes para Reestruturacao
Provisoes para Passivos Ambientais e de Desativacao - PC Provisoes para Passivos Ambientais e de Desativacao
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados
Passivos sobre Ativos Nao-Correntes a Venda - PC Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas - PC Passivos sobre Ativos de Operacoes Descontinuadas
2018
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
2017
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
2016
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
2015
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
2014
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
2013
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
2012
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
2011
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
2010
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
2009
Provisoes para Garantias - PC 0
Provisoes para Reestruturacao - PC 0
Provisoes para Passivos Ambientais e de Desativacao - PC 0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC 0
Passivos sobre Ativos Nao-Correntes a Venda - PC NA
Passivos sobre Ativos de Operacoes Descontinuadas - PC 0
chk
Provisoes para Garantias - PC Provisoes para Garantias
Provisoes para Reestruturacao - PC Provisoes para Reestruturacao
Provisoes para Passivos Ambientais e de Desativacao - PC Provisoes para Passivos Ambientais e de Desativacao
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados
Passivos sobre Ativos Nao-Correntes a Venda - PC Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas - PC Passivos sobre Ativos de Operacoes Descontinuadas
Classe
Provisoes para Garantias - PC PC
Provisoes para Reestruturacao - PC PC
Provisoes para Passivos Ambientais e de Desativacao - PC PC
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC PC
Passivos sobre Ativos Nao-Correntes a Venda - PC PC
Passivos sobre Ativos de Operacoes Descontinuadas - PC PC
Data.PNC=Data.Passivo[header.PNC:(header.PL-1),]
head(Data.PNC)
Conta
Passivo Nao Circulante - PNC Passivo Nao Circulante
Emprestimos e Financiamentos - PNC Emprestimos e Financiamentos
Emprestimos e Financiamentos subconta - PNC Emprestimos e Financiamentos subconta
Em Moeda Nacional - PNC Em Moeda Nacional
Em Moeda Estrangeira - PNC Em Moeda Estrangeira
Debentures - PNC Debentures
2018 2017 2016
Passivo Nao Circulante - PNC 7490790 7754093 9310867
Emprestimos e Financiamentos - PNC 5382754 5645802 6856600
Emprestimos e Financiamentos subconta - PNC 4562971 4758468 5864416
Em Moeda Nacional - PNC 0 0 0
Em Moeda Estrangeira - PNC 0 0 0
Debentures - PNC 819783 887334 992184
2015 2014 2013
Passivo Nao Circulante - PNC 8268552 6953021 7436558
Emprestimos e Financiamentos - PNC 5957213 4978324 5510811
Emprestimos e Financiamentos subconta - PNC 4958032 3979775 4512891
Em Moeda Nacional - PNC 0 0 0
Em Moeda Estrangeira - PNC 0 0 0
Debentures - PNC 999181 998549 997920
2012 2011 2010
Passivo Nao Circulante - PNC 8858225 10254047 9258299
Emprestimos e Financiamentos - PNC 6467587 7623126 6904124
Emprestimos e Financiamentos subconta - PNC 6467587 7373126 6404124
Em Moeda Nacional - PNC 0 0 0
Em Moeda Estrangeira - PNC 0 0 0
Debentures - PNC 0 250000 500000
2009
Passivo Nao Circulante - PNC 6903845
Emprestimos e Financiamentos - PNC 4784531
Emprestimos e Financiamentos subconta - PNC 3684531
Em Moeda Nacional - PNC 0
Em Moeda Estrangeira - PNC 0
Debentures - PNC 1100000
chk
Passivo Nao Circulante - PNC Passivo Nao Circulante
Emprestimos e Financiamentos - PNC Emprestimos e Financiamentos
Emprestimos e Financiamentos subconta - PNC Emprestimos e Financiamentos
Em Moeda Nacional - PNC Em Moeda Nacional
Em Moeda Estrangeira - PNC Em Moeda Estrangeira
Debentures - PNC Debentures
Classe
Passivo Nao Circulante - PNC PNC
Emprestimos e Financiamentos - PNC PNC
Emprestimos e Financiamentos subconta - PNC PNC
Em Moeda Nacional - PNC PNC
Em Moeda Estrangeira - PNC PNC
Debentures - PNC PNC
Conta
Passivos sobre Ativos Nao-Correntes a Venda - PNC Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas - PNC Passivos sobre Ativos de Operacoes Descontinuadas
Lucros e Receitas a Apropriar - PNC Lucros e Receitas a Apropriar
Lucros a Apropriar - PNC Lucros a Apropriar
Receitas a Apropriar - PNC Receitas a Apropriar
Subvencoes de Investimento a Apropriar - PNC Subvencoes de Investimento a Apropriar
2018 2017 2016
Passivos sobre Ativos Nao-Correntes a Venda - PNC 0 0 0
Passivos sobre Ativos de Operacoes Descontinuadas - PNC 0 0 0
Lucros e Receitas a Apropriar - PNC 0 0 0
Lucros a Apropriar - PNC 0 0 0
Receitas a Apropriar - PNC 0 0 0
Subvencoes de Investimento a Apropriar - PNC 0 0 0
2015 2014 2013
Passivos sobre Ativos Nao-Correntes a Venda - PNC 0 0 0
Passivos sobre Ativos de Operacoes Descontinuadas - PNC 0 0 0
Lucros e Receitas a Apropriar - PNC 0 0 0
Lucros a Apropriar - PNC 0 0 0
Receitas a Apropriar - PNC 0 0 0
Subvencoes de Investimento a Apropriar - PNC 0 0 0
2012 2011 2010
Passivos sobre Ativos Nao-Correntes a Venda - PNC 0 0 0
Passivos sobre Ativos de Operacoes Descontinuadas - PNC 0 0 0
Lucros e Receitas a Apropriar - PNC 0 0 0
Lucros a Apropriar - PNC 0 0 0
Receitas a Apropriar - PNC 0 0 0
Subvencoes de Investimento a Apropriar - PNC 0 0 0
2009
Passivos sobre Ativos Nao-Correntes a Venda - PNC 0
Passivos sobre Ativos de Operacoes Descontinuadas - PNC 0
Lucros e Receitas a Apropriar - PNC 0
Lucros a Apropriar - PNC 0
Receitas a Apropriar - PNC 0
Subvencoes de Investimento a Apropriar - PNC 0
chk
Passivos sobre Ativos Nao-Correntes a Venda - PNC Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas - PNC Passivos sobre Ativos de Operacoes Descontinuadas
Lucros e Receitas a Apropriar - PNC Lucros e Receitas a Apropriar
Lucros a Apropriar - PNC Lucros a Apropriar
Receitas a Apropriar - PNC Receitas a Apropriar
Subvencoes de Investimento a Apropriar - PNC Subvencoes de Investimento a Apropriar
Classe
Passivos sobre Ativos Nao-Correntes a Venda - PNC PNC
Passivos sobre Ativos de Operacoes Descontinuadas - PNC PNC
Lucros e Receitas a Apropriar - PNC PNC
Lucros a Apropriar - PNC PNC
Receitas a Apropriar - PNC PNC
Subvencoes de Investimento a Apropriar - PNC PNC
Data.PL=Data.Passivo[header.PL:end.Passivo,]
head(Data.PL)
Conta
Patrimonio Liquido Consolidado - PL Patrimonio Liquido Consolidado
Capital Social Realizado - PL Capital Social Realizado
Reservas de Capital - PL Reservas de Capital
Agio na Emissao de Acoes - PL Agio na Emissao de Acoes
Reserva Especial de agio na Incorporacao - PL Reserva Especial de agio na Incorporacao
Alienacao de Bonus de Subscricao - PL Alienacao de Bonus de Subscricao
2018 2017 2016
Patrimonio Liquido Consolidado - PL 15697391 15183964 15191634
Capital Social Realizado - PL 13200295 13200295 13200295
Reservas de Capital - PL 309391 311747 309445
Agio na Emissao de Acoes - PL 0 0 0
Reserva Especial de agio na Incorporacao - PL 0 0 0
Alienacao de Bonus de Subscricao - PL 0 0 0
2015 2014 2013
Patrimonio Liquido Consolidado - PL 14993857 18761615 18833945
Capital Social Realizado - PL 12150000 12150000 12150000
Reservas de Capital - PL 327191 318851 313084
Agio na Emissao de Acoes - PL 0 0 0
Reserva Especial de agio na Incorporacao - PL 0 0 0
Alienacao de Bonus de Subscricao - PL 0 0 0
2012 2011 2010
Patrimonio Liquido Consolidado - PL 18513073 19014205 19029437
Capital Social Realizado - PL 12150000 12150000 12150000
Reservas de Capital - PL 219684 2274 0
Agio na Emissao de Acoes - PL 0 0 0
Reserva Especial de agio na Incorporacao - PL 0 0 0
Alienacao de Bonus de Subscricao - PL 0 0 0
2009
Patrimonio Liquido Consolidado - PL 16001058
Capital Social Realizado - PL 12150000
Reservas de Capital - PL 0
Agio na Emissao de Acoes - PL 0
Reserva Especial de agio na Incorporacao - PL 0
Alienacao de Bonus de Subscricao - PL 0
chk
Patrimonio Liquido Consolidado - PL Patrimônio Liquido Consolidado
Capital Social Realizado - PL Capital Social Realizado
Reservas de Capital - PL Reservas de Capital
Agio na Emissao de Acoes - PL agio na Emissao de Acoes
Reserva Especial de agio na Incorporacao - PL Reserva Especial de agio na Incorporacao
Alienacao de Bonus de Subscricao - PL Alienacao de Bônus de Subscricao
Classe
Patrimonio Liquido Consolidado - PL PL
Capital Social Realizado - PL PL
Reservas de Capital - PL PL
Agio na Emissao de Acoes - PL PL
Reserva Especial de agio na Incorporacao - PL PL
Alienacao de Bonus de Subscricao - PL PL
Conta
Para Investimentos e Capital de Giro - PL Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados - PL Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial - PL Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao - PL Ajustes Acumulados de Conversao
Outros Resultados Abrangentes - PL Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores - PL Participacao dos Acionistas Nao Controladores
2018 2017 2016
Para Investimentos e Capital de Giro - PL 718958 190556 0
Lucros/Prejuizos Acumulados - PL 0 0 0
Ajustes de Avaliacao Patrimonial - PL -10330 60546 26000
Ajustes Acumulados de Conversao - PL 0 0 0
Outros Resultados Abrangentes - PL 0 0 0
Participacao dos Acionistas Nao Controladores - PL 1431093 1409169 1655894
2015 2014 2013
Para Investimentos e Capital de Giro - PL 0 157650 0
Lucros/Prejuizos Acumulados - PL 0 0 0
Ajustes de Avaliacao Patrimonial - PL 311748 419753 549670
Ajustes Acumulados de Conversao - PL 0 0 0
Outros Resultados Abrangentes - PL 0 0 0
Participacao dos Acionistas Nao Controladores - PL 1584879 2041951 2122037
2012 2011 2010
Para Investimentos e Capital de Giro - PL 150812 770250 718784
Lucros/Prejuizos Acumulados - PL 0 0 0
Ajustes de Avaliacao Patrimonial - PL 367361 640697 965607
Ajustes Acumulados de Conversao - PL 0 0 0
Outros Resultados Abrangentes - PL 0 0 0
Participacao dos Acionistas Nao Controladores - PL 1904644 1730412 1596838
2009
Para Investimentos e Capital de Giro - PL 2705686
Lucros/Prejuizos Acumulados - PL -41277
Ajustes de Avaliacao Patrimonial - PL 221901
Ajustes Acumulados de Conversao - PL 0
Outros Resultados Abrangentes - PL 0
Participacao dos Acionistas Nao Controladores - PL 355406
chk
Para Investimentos e Capital de Giro - PL Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados - PL Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial - PL Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao - PL Ajustes Acumulados de Conversao
Outros Resultados Abrangentes - PL Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores - PL Participacao dos Acionistas Nao Controladores
Classe
Para Investimentos e Capital de Giro - PL PL
Lucros/Prejuizos Acumulados - PL PL
Ajustes de Avaliacao Patrimonial - PL PL
Ajustes Acumulados de Conversao - PL PL
Outros Resultados Abrangentes - PL PL
Participacao dos Acionistas Nao Controladores - PL PL
# head(Data.Ativo)
m.Ativo= subset(Data.Ativo, select= -c(Conta, chk, Classe))
m.Passivo= subset(Data.Passivo, select= -c(Conta, chk, Classe ))
m.DRE= subset(Data.DRE, select= -c(Conta, chk, Classe ))
m.DRA= subset(Data.DRA, select= -c(Conta, chk, Classe ))
m.DFC= subset(Data.DFC, select= -c(Conta, chk , Classe ))
m.DVA= subset(Data.DVA, select= -c(Conta, chk, Classe ))
m.MERC= subset(Data.MERC, select= -c(Conta, chk, Classe ))
m.AC= subset(Data.AC, select= -c(Conta, chk, Classe ))
m.ANC= subset(Data.ANC, select= -c(Conta, chk, Classe ))
m.RLP= subset(Data.RLP, select= -c(Conta, chk, Classe ))
m.PERM= subset(Data.PERM, select= -c(Conta, chk, Classe ))
m.PC= subset(Data.PC, select= -c(Conta, chk, Classe ))
m.PNC= subset(Data.PNC, select= -c(Conta, chk, Classe ))
m.PL= subset(Data.PL, select= -c(Conta, chk, Classe ))
head(m.PL)
2018 2017 2016
Patrimonio Liquido Consolidado - PL 15697391 15183964 15191634
Capital Social Realizado - PL 13200295 13200295 13200295
Reservas de Capital - PL 309391 311747 309445
Agio na Emissao de Acoes - PL 0 0 0
Reserva Especial de agio na Incorporacao - PL 0 0 0
Alienacao de Bonus de Subscricao - PL 0 0 0
2015 2014 2013
Patrimonio Liquido Consolidado - PL 14993857 18761615 18833945
Capital Social Realizado - PL 12150000 12150000 12150000
Reservas de Capital - PL 327191 318851 313084
Agio na Emissao de Acoes - PL 0 0 0
Reserva Especial de agio na Incorporacao - PL 0 0 0
Alienacao de Bonus de Subscricao - PL 0 0 0
2012 2011 2010
Patrimonio Liquido Consolidado - PL 18513073 19014205 19029437
Capital Social Realizado - PL 12150000 12150000 12150000
Reservas de Capital - PL 219684 2274 0
Agio na Emissao de Acoes - PL 0 0 0
Reserva Especial de agio na Incorporacao - PL 0 0 0
Alienacao de Bonus de Subscricao - PL 0 0 0
2009
Patrimonio Liquido Consolidado - PL 16001058
Capital Social Realizado - PL 12150000
Reservas de Capital - PL 0
Agio na Emissao de Acoes - PL 0
Reserva Especial de agio na Incorporacao - PL 0
Alienacao de Bonus de Subscricao - PL 0
2018 2017 2016
Para Investimentos e Capital de Giro - PL 718958 190556 0
Lucros/Prejuizos Acumulados - PL 0 0 0
Ajustes de Avaliacao Patrimonial - PL -10330 60546 26000
Ajustes Acumulados de Conversao - PL 0 0 0
Outros Resultados Abrangentes - PL 0 0 0
Participacao dos Acionistas Nao Controladores - PL 1431093 1409169 1655894
2015 2014 2013
Para Investimentos e Capital de Giro - PL 0 157650 0
Lucros/Prejuizos Acumulados - PL 0 0 0
Ajustes de Avaliacao Patrimonial - PL 311748 419753 549670
Ajustes Acumulados de Conversao - PL 0 0 0
Outros Resultados Abrangentes - PL 0 0 0
Participacao dos Acionistas Nao Controladores - PL 1584879 2041951 2122037
2012 2011 2010
Para Investimentos e Capital de Giro - PL 150812 770250 718784
Lucros/Prejuizos Acumulados - PL 0 0 0
Ajustes de Avaliacao Patrimonial - PL 367361 640697 965607
Ajustes Acumulados de Conversao - PL 0 0 0
Outros Resultados Abrangentes - PL 0 0 0
Participacao dos Acionistas Nao Controladores - PL 1904644 1730412 1596838
2009
Para Investimentos e Capital de Giro - PL 2705686
Lucros/Prejuizos Acumulados - PL -41277
Ajustes de Avaliacao Patrimonial - PL 221901
Ajustes Acumulados de Conversao - PL 0
Outros Resultados Abrangentes - PL 0
Participacao dos Acionistas Nao Controladores - PL 355406
Análise Fundamentalista (V)
Aplicar Correção Monetária
anos_uso=c("2018","2017","2016","2015","2014","2013","2012","2011","2010","2009")
#Ativo
v.CM.aj=m.MERC["Fator de Correcao - MERC",] # linha de correção monetária
v.IGPDI.aj=m.MERC["IGP-DI - MERC",] # linha de IGP-DI
m.Ativo.aj.cm= m.Ativo
rownomes=rownames(m.Ativo)
m.Ativo.aj.cm=as.data.frame(sweep(m.Ativo.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.Ativo.aj.cm)=anos_uso
# Passivo
m.Passivo.aj.cm= m.Passivo
rownomes=rownames(m.Ativo)
m.Passivo.aj.cm=as.data.frame(sweep(m.Passivo.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.Passivo.aj.cm)=anos_uso
# DRE
m.DRE.aj.cm= m.DRE
rownomes=rownames(m.DRE)
m.DRE.aj.cm=as.data.frame(sweep(m.DRE.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.DRE.aj.cm)=anos_uso
# DRA
m.DRA.aj.cm= m.DRA
rownomes=rownames(m.DRA)
m.DRA.aj.cm=as.data.frame(sweep(m.DRA.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.DRA.aj.cm)=anos_uso
# DFC
m.DFC.aj.cm= m.DFC
rownomes=rownames(m.DFC)
m.DFC.aj.cm=as.data.frame(sweep(m.DFC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.DFC.aj.cm)=anos_uso
# DVA
m.DVA.aj.cm= m.DVA
rownomes=rownames(m.DVA)
m.DVA.aj.cm=as.data.frame(sweep(m.DVA.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.DVA.aj.cm)=anos_uso
# PC
m.PC.aj.cm= m.PC
rownomes=rownames(m.PC)
m.PC.aj.cm=as.data.frame(sweep(m.PC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.PC.aj.cm)=anos_uso
# PNC
m.PNC.aj.cm= m.PNC
rownomes=rownames(m.PNC)
m.PNC.aj.cm=as.data.frame(sweep(m.PNC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.PNC.aj.cm)=anos_uso
# PL
m.PL.aj.cm= m.PL
rownomes=rownames(m.PC)
m.PL.aj.cm=as.data.frame(sweep(m.PL.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.PL.aj.cm)=anos_uso
# AC
m.AC.aj.cm= m.AC
rownomes=rownames(m.AC)
m.AC.aj.cm=as.data.frame(sweep(m.AC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.AC.aj.cm)=anos_uso
# ANC
m.ANC.aj.cm= m.ANC
rownomes=rownames(m.ANC)
m.ANC.aj.cm=as.data.frame(sweep(m.ANC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.ANC.aj.cm)=anos_uso
# RLP
m.RLP.aj.cm= m.RLP
rownomes=rownames(m.RLP)
m.RLP.aj.cm=as.data.frame(sweep(m.RLP.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.RLP.aj.cm)=anos_uso
# PERM
m.PERM.aj.cm= m.PERM
rownomes=rownames(m.PERM)
m.PERM.aj.cm=as.data.frame(sweep(m.PERM.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.PERM.aj.cm)=anos_uso
Ajuste de Contas
Ajustes das contas sem NE (BP):
– Ativo:
"Adiantamentos a Fornecedores - AC”
"Outras Contas a Receber - AC”
"Estoques - ANC”
"Outras Contas a Receber - ANC”
"Outros - ANC”
– Passivo:
"Adiantamentos de Clientes - PC”
"Contas a Pagar - PC”
"Outros - PNC”
Análise Fundamentalista (VI)
Ajuste de Contas sem NE
# Ajuste AC e ANC: retirada das contas sem NE e com possibilidades de gerenciamento
aj1.ac=as.numeric(m.Ativo.aj.cm["Adiantamentos a Fornecedores - AC",])
aj2.ac=as.numeric(m.Ativo.aj.cm["Outras Contas a Receber - AC",])
is.data.frame(aj2.ac)
[1] FALSE
aj.ac=aj1.ac + aj2.ac
aj1.anc=as.numeric(m.Ativo.aj.cm["Estoques - ANC",])
aj2.anc=as.numeric(m.Ativo.aj.cm["Outras Contas a Receber - ANC",])
aj3.anc=as.numeric(m.Ativo.aj.cm["Outros - ANC",])
aj.anc=aj1.anc+aj2.anc+aj3.anc
# # Ajuste PC e PNC: retirada das contas sem NE e com possibilidades de gerenciamento
aj1.pc=as.numeric(m.Passivo.aj.cm["Adiantamentos de Clientes - PC",])
aj2.pc=as.numeric(m.Passivo.aj.cm["Contas a Pagar - PC",])
aj.pc=aj1.pc+aj2.pc
aj1.pnc=as.numeric(m.Passivo.aj.cm["Outros - PNC",])
aj.pnc=aj1.pnc
# Ajuste: retirada das contas sem NE e com possibilidades de gerenciamento
m.Ativo.aj=as.data.frame(m.Ativo.aj.cm)
m.Ativo.aj["Ativo Total - AT",]=as.numeric(m.Ativo.aj.cm["Ativo Total - AT",])-aj.ac-aj.anc
m.Ativo.aj["Ativo Circulante - AC",]=as.numeric(m.Ativo.aj.cm["Ativo Circulante - AC",])-aj.ac
m.Ativo.aj["Ativo Nao Circulante - ANC",]=as.numeric(m.Ativo.aj.cm["Ativo Nao Circulante - ANC",])-aj.anc
rownomes1=rownames(m.Ativo)
row.names(m.Ativo.aj)=rownomes1
m.Passivo.aj=as.data.frame(m.Passivo.aj.cm)
m.Passivo.aj["Passivo Total - PT",]=as.numeric(m.Passivo.aj.cm["Passivo Total - PT",])-aj.pc-aj.pnc
m.Passivo.aj["Passivo Circulante - PC",]=as.numeric(m.Passivo.aj.cm["Passivo Circulante - PC",])-aj.pc
m.Passivo.aj["Passivo Nao Circulante - PNC",]=as.numeric(m.Passivo.aj.cm["Passivo Nao Circulante - PNC",])-aj.pnc
rownomes=rownames(m.Passivo)
row.names(m.Passivo.aj)=rownomes
m.AC.aj=as.data.frame(m.AC.aj.cm)
m.AC.aj["Ativo Circulante - AC",]=as.numeric(m.AC.aj.cm["Ativo Circulante - AC",])-aj.ac
rownomes=rownames(m.AC)
row.names(m.AC.aj)=rownomes
m.ANC.aj=as.data.frame(m.ANC.aj.cm)
m.ANC.aj["Ativo Nao Circulante - ANC",]=as.numeric(m.ANC.aj.cm["Ativo Nao Circulante - ANC",])-aj.anc
rownomes=rownames(m.ANC)
row.names(m.ANC.aj)=rownomes
m.PC.aj=as.data.frame(m.PC.aj.cm)
m.PC.aj["Passivo Circulante - PC",]=as.numeric(m.PC.aj.cm["Passivo Circulante - PC",])-aj.pc
rownomes=rownames(m.PC)
row.names(m.PC.aj)=rownomes
m.PNC.aj=as.data.frame(m.PNC.aj.cm)
m.PNC.aj["Passivo Nao Circulante - PNC",]=as.numeric(m.PNC.aj.cm["Passivo Nao Circulante - PNC",])-aj.pnc
rownomes=rownames(m.PNC)
row.names(m.PNC.aj)=rownomes
m.PL.aj=as.data.frame(m.PL.aj.cm)
m.PERM.aj=as.data.frame(m.PERM.aj.cm)
m.RLP.aj=as.data.frame(m.RLP.aj.cm)
Análise Fundamentalista (VII)
Valores Médios entre anos Adjacentes: “Smooth de Dados Temporais” (Assaf Neto) Pode se fazer a média móvel, mas fiz mais difícil…
# Valores medios dos anos no BP
anos.med= c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
anos_uso = c("2018","2017","2016","2015","2014","2013","2012","2011","2010","2009")
rownomes=rownames(m.Ativo)
m.Ativo.aj = as.data.frame(sapply(m.Ativo.aj, as.numeric))
m.Ativo.aj.med=m.Ativo.aj
m.Ativo.aj.med[ ,anos.med]
2018 2017 2016 2015 2014 2013
1 NA NA NA NA NA NA
2 26307805 27483524.547 25889970.6 31650337.6 36838882 35995400
3 8319920 7641548.840 6273686.2 7730695.4 9822229 10789140
4 1106790 1896319.094 713837.5 918800.3 2573717 3041621
5 586559 582329.639 1524699.0 1405499.0 905262 965243
6 0 0.000 0.0 0.0 0 0
7 0 0.000 0.0 0.0 0 0
8 0 0.000 0.0 0.0 0 0
9 0 0.000 0.0 0.0 0 0
10 0 0.000 0.0 0.0 0 0
11 1894291 1665965.184 1169330.2 1639984.4 1520817 1893862
12 0 1665965.184 1169330.2 1639984.4 1520817 1893862
13 0 0.000 0.0 0.0 0 0
14 3880635 2959759.486 2582481.9 3155485.0 4290014 4447659
15 0 0.000 0.0 0.0 0 0
16 0 0.000 0.0 0.0 0 0
17 0 0.000 0.0 0.0 0 0
18 0 0.000 0.0 0.0 0 0
19 856042 665614.297 376325.7 796268.2 768357 579296
20 0 0.000 0.0 0.0 0 0
21 0 0.000 0.0 0.0 0 0
22 856042 665614.297 376325.7 796268.2 768357 579296
23 617731 189410.958 124141.9 242189.2 437227 373701
24 130197 198796.306 112458.6 190875.6 0 0
25 13562 148955.320 2442.4 2706.1 15421 14338
26 4050 4639.659 7165.4 14325.0 21772 15641
27 347 123799.202 85822.7 171016.7 214167 122899
28 90155 12.852 44294.7 175155.7 79770 52716
29 17987885 19841975.707 19616284.4 23919642.2 27016653 25206261
30 4700822 4408170.519 4229539.9 5393393.7 3878989 3269356
31 0 0.000 0.0 0.0 0 0
32 0 0.000 0.0 0.0 0 0
33 0 0.000 0.0 0.0 0 0
34 0 0.000 0.0 0.0 0 0
35 0 0.000 0.0 0.0 0 0
36 64058 264846.110 162351.0 165652.8 162433 114186
37 64058 140794.147 0.0 0.0 0 0
38 0 124051.963 0.0 0.0 0 0
39 26899 41809.408 22467.1 0.0 67023 0
40 0 0.000 0.0 0.0 0 0
41 2765356 3262446.874 3094219.3 3767021.2 2461875 2212031
42 0 0.000 0.0 0.0 0 0
43 0 0.000 0.0 0.0 0 0
44 2342 3370.500 3809.8 5065.5 27305 24062
45 0 0.000 0.0 0.0 0 0
46 0 0.000 0.0 0.0 0 0
47 0 0.000 0.0 0.0 0 0
48 1842167 835697.628 946692.7 1455654.2 1160354 919077
49 0 0.000 0.0 0.0 0 0
50 0 0.000 0.0 0.0 0 0
51 0 0.000 0.0 0.0 0 0
52 523557 723581.112 654696.3 685871.7 690950 653104
53 3553 1268.088 99826.4 642544.4 307443 46907
54 454284 58778.649 95264.9 93298.9 116907 131075
55 0 0.000 67600.7 0.0 NA 0
56 676023 NA NA NA NA NA
57 184750 52069.779 29304.4 33939.3 45054 87992
58 1088094 1128910.773 1116738.6 1244908.3 1397723 1339868
59 1088094 1128910.773 1116738.6 1244908.3 1397723 1339868
60 473765 479083.311 520906.9 578817.4 603936 547273
61 614329 649827.462 595831.7 666090.9 793787 792595
62 0 0.000 0.0 0.0 0 0
63 11715022 13797541.530 13633674.3 16927307.9 18951535 17912098
64 10869010 12893359.671 12748549.3 15290128.3 16498346 15697864
65 0 0.000 0.0 0.0 0 0
66 846012 904181.860 885125.0 1637179.6 2453188 2214234
67 695596 725284.034 688103.0 387971.6 2900483 2772930
68 0 0.000 0.0 0.0 0 0
69 0 0.000 0.0 0.0 0 0
70 0 0.000 0.0 0.0 0 0
2012 2011 2010
1 NA NA NA
2 43511962.9 48175350.9 45858730.0
3 14193612.3 18008020.7 17515468.2
4 4253349.4 4231650.6 6038907.5
5 2056037.9 3339133.8 579432.5
6 0.0 0.0 0.0
7 0.0 0.0 0.0
8 0.0 0.0 0.0
9 0.0 0.0 0.0
10 0.0 0.0 0.0
11 2096858.9 1829631.1 2527455.4
12 2096858.9 1829631.1 2527455.4
13 0.0 0.0 0.0
14 5054897.2 7378522.4 7135075.7
15 0.0 0.0 0.0
16 0.0 0.0 0.0
17 0.0 0.0 0.0
18 0.0 0.0 0.0
19 954842.8 1623254.9 1592940.7
20 0.0 0.0 0.0
21 0.0 0.0 0.0
22 954842.8 1623254.9 1592940.7
23 649258.2 1166291.6 1199209.5
24 0.0 0.0 0.0
25 16225.7 19817.0 82043.8
26 44704.3 104661.2 102059.5
27 177669.7 289510.9 256284.2
28 66984.9 42974.1 35387.6
29 29318350.6 30167330.2 28343261.8
30 3269136.1 2829536.5 2091928.8
31 0.0 0.0 0.0
32 0.0 0.0 0.0
33 0.0 0.0 0.0
34 0.0 0.0 0.0
35 0.0 0.0 0.0
36 0.0 0.0 46108.5
37 0.0 0.0 46108.5
38 0.0 0.0 0.0
39 0.0 0.0 0.0
40 0.0 0.0 0.0
41 0.0 0.0 0.0
42 0.0 0.0 0.0
43 0.0 0.0 0.0
44 16890.3 8328.2 8681.6
45 0.0 0.0 0.0
46 0.0 0.0 0.0
47 0.0 0.0 0.0
48 3252245.8 2821208.3 2083247.2
49 0.0 0.0 0.0
50 0.0 0.0 0.0
51 2024374.1 1162661.4 580067.6
52 575959.1 709322.5 646571.9
53 383121.4 635878.2 519873.4
54 177114.8 225688.6 254868.3
55 0.0 0.0 0.0
56 NA NA NA
57 91676.4 87657.7 81866.1
58 605839.0 624808.0 3002406.0
59 605839.0 624808.0 3002406.0
60 601939.7 620164.0 2442932.4
61 3899.3 4644.0 559473.6
62 0.0 0.0 0.0
63 22268718.6 23221480.7 20793544.7
64 19313757.3 15299690.9 14194061.0
65 0.0 0.0 0.0
66 2954961.3 7921789.8 6599483.8
67 3266333.3 3579162.6 2537248.4
68 0.0 0.0 0.0
69 0.0 0.0 0.0
70 0.0 0.0 0.0
m.Ativo.aj.med=lapply(1:(ncol(m.Ativo.aj.med)-1), function(i) (m.Ativo.aj.med[,i] + m.Ativo.aj.med[,i+1])/2)
m.Ativo.aj.med= matrix(unlist(m.Ativo.aj.med), byrow = FALSE, nrow = nrow(m.Ativo.aj))
m.Ativo.aj.med=as.data.frame(m.Ativo.aj.med)
row.names(m.Ativo.aj.med)=rownomes
row.names(m.Ativo.aj)=rownomes
colnames(m.Ativo.aj.med)=anos.med
rownomes=rownames(m.Passivo)
m.Passivo.aj = as.data.frame(sapply(m.Passivo.aj, as.numeric))
m.Passivo.aj.med=m.Passivo.aj
m.Passivo.aj.med[ ,anos.med]
2018 2017 2016 2015 2014 2013
1 NA NA NA NA NA NA
2 26193395 27497472.4 25691246.0 31247000.80 36610423.7 35494469.6
3 3105510 3024068.9 1599704.2 4895621.41 5517233.0 5278710.6
4 205583 202139.0 195424.5 319345.65 341912.8 289758.2
5 0 0.0 0.0 0.00 0.0 0.0
6 0 0.0 0.0 0.00 0.0 0.0
7 1133763 1046297.6 839284.4 942105.77 2039078.2 2797704.1
8 0 0.0 0.0 0.00 0.0 0.0
9 0 0.0 0.0 0.00 0.0 0.0
10 126212 103378.1 65432.0 105279.39 142663.7 156261.0
11 126212 103378.1 65432.0 105279.39 142663.7 156261.0
12 3299 1535.8 7474.8 98217.37 27743.7 4827.2
13 122913 101842.2 57957.2 7062.02 114920.0 151433.8
14 0 0.0 0.0 0.00 0.0 0.0
15 0 0.0 0.0 0.00 0.0 0.0
16 0 0.0 0.0 0.00 0.0 0.0
17 467036 1060285.2 67140.6 2194613.41 2080982.3 1536492.7
18 396799 993848.7 61636.1 2124453.56 2019876.1 1488526.7
19 0 0.0 0.0 0.00 0.0 0.0
20 0 0.0 0.0 0.00 0.0 0.0
21 70237 66436.4 5504.5 70159.85 61106.2 47965.9
22 0 0.0 0.0 0.00 0.0 0.0
23 1403076 850676.9 570278.7 1600469.93 1213490.3 1096395.8
24 0 0.0 0.0 0.00 0.0 161763.9
25 0 0.0 0.0 0.00 0.0 0.0
26 0 0.0 0.0 0.00 0.0 0.0
27 0 0.0 0.0 0.00 0.0 0.0
28 1403076 850676.9 570278.7 1600469.93 1213490.3 934631.8
29 202809 81016.2 21816.6 163.03 37739.4 1296.0
30 0 0.0 0.0 0.00 0.0 0.0
31 0 0.0 0.0 0.00 0.0 0.0
32 4180 21949.5 8457.5 9404.17 9222.3 29767.2
33 0 0.0 48169.9 229228.20 114723.6 58927.9
34 63484 87174.6 35505.9 46841.74 134405.2 205966.5
35 0 0.0 0.0 0.00 0.0 246739.6
36 166676 151533.3 102350.1 219351.01 166489.2 391934.6
37 965927 509003.3 353978.6 1095481.79 750910.6 0.0
38 0 0.0 0.0 0.00 0.0 0.0
39 0 0.0 0.0 0.00 0.0 0.0
40 0 0.0 0.0 0.00 0.0 0.0
41 0 0.0 0.0 0.00 0.0 0.0
42 0 0.0 0.0 0.00 0.0 0.0
43 0 0.0 0.0 0.00 0.0 0.0
44 0 0.0 0.0 0.00 0.0 0.0
45 0 0.0 0.0 0.00 0.0 0.0
46 0 0.0 0.0 0.00 0.0 0.0
47 0 0.0 0.0 0.00 0.0 0.0
48 0 0.0 0.0 0.00 0.0 0.0
49 0 0.0 0.0 0.00 0.0 0.0
50 0 0.0 0.0 0.00 0.0 0.0
51 7390494 8211074.4 9027213.7 9136782.23 8206271.8 8460480.8
52 5382754 6046766.9 6799141.7 6839535.82 6072957.9 6365592.9
53 4562971 5096414.4 5815272.2 5692366.12 4854847.9 5212885.5
54 0 0.0 0.0 0.00 0.0 0.0
55 0 0.0 0.0 0.00 0.0 0.0
56 819783 950352.5 983869.5 1147169.70 1218110.0 1152707.4
57 0 0.0 0.0 0.00 0.0 0.0
58 234550 247052.2 357612.9 543517.57 275579.4 129561.8
59 134254 153337.9 151984.6 187092.56 0.0 0.0
60 0 0.0 0.0 0.00 0.0 0.0
61 0 0.0 0.0 0.00 0.0 0.0
62 0 153337.9 151984.6 187092.56 0.0 0.0
63 100296 93714.2 205628.3 356425.01 275579.4 129561.8
64 0 0.0 0.0 0.00 0.0 0.0
65 0 0.0 0.0 0.00 0.0 0.0
66 0 0.0 8974.2 11001.19 12164.6 41679.8
67 0 0.0 101554.8 234036.48 222281.7 61116.9
68 0 0.0 0.0 0.00 0.0 0.0
69 100296 93714.2 95099.3 111387.34 41133.1 26765.1
70 0 0.0 0.0 0.00 0.0 0.0
71 0 0.0 0.0 0.00 0.0 0.0
72 1873486 2010969.6 2076087.4 2110153.85 2133313.9 2094887.9
73 1669779 1841391.8 1934244.1 1964225.62 2029449.7 2006420.3
74 0 0.0 0.0 0.00 0.0 0.0
75 1034228 1124918.0 1331474.9 1324205.96 1448958.8 1421150.3
76 0 0.0 0.0 0.00 0.0 0.0
77 0 0.0 0.0 0.00 0.0 0.0
78 635551 716473.8 602769.1 640019.66 580490.9 585270.0
79 203707 169577.8 141843.3 145928.23 103864.2 88467.6
80 0 0.0 0.0 0.00 0.0 0.0
81 0 0.0 0.0 0.00 0.0 0.0
82 203707 169577.8 141843.3 145928.23 103864.2 88467.6
83 0 0.0 0.0 0.00 0.0 0.0
84 0 0.0 0.0 0.00 0.0 0.0
85 0 0.0 0.0 0.00 0.0 0.0
86 0 0.0 0.0 0.00 0.0 0.0
87 0 0.0 0.0 0.00 0.0 0.0
88 0 0.0 0.0 0.00 0.0 0.0
89 0 0.0 0.0 0.00 0.0 0.0
90 15697391 16262329.1 15064328.1 17214597.16 22886918.9 21755278.2
91 13200295 14137780.0 13089676.5 13949536.50 14821542.0 14034586.5
92 309391 333887.3 306851.9 375651.26 388960.0 361646.5
93 0 0.0 0.0 0.00 0.0 0.0
94 0 0.0 0.0 0.00 0.0 0.0
95 0 0.0 0.0 0.00 0.0 0.0
96 0 0.0 0.0 0.00 0.0 0.0
97 0 0.0 0.0 0.00 0.0 0.0
98 0 0.0 0.0 0.00 0.0 0.0
99 0 0.0 0.0 0.00 0.0 0.0
100 766942 216567.7 0.0 711872.98 4673433.5 4272929.8
101 47984 12478.5 0.0 711872.98 861314.6 808099.9
102 0 0.0 0.0 0.00 3619804.8 3464829.8
103 0 0.0 0.0 0.00 0.0 0.0
104 0 0.0 0.0 0.00 0.0 0.0
105 0 0.0 0.0 0.00 0.0 0.0
106 0 0.0 0.0 0.00 0.0 0.0
107 0 0.0 0.0 0.00 0.0 0.0
108 0 0.0 0.0 0.00 0.0 0.0
109 0 0.0 0.0 0.00 0.0 0.0
110 718958 204089.3 0.0 0.00 192314.1 0.0
111 0 0.0 0.0 0.00 0.0 0.0
112 -10330 64846.0 25782.1 357921.00 512048.3 634929.3
113 0 0.0 0.0 0.00 0.0 0.0
114 0 0.0 0.0 0.00 0.0 0.0
115 1431093 1509248.2 1642017.6 1819615.43 2490935.2 2451186.2
2012 2011 2010
1 NA NA NA
2 42302939 46505544.1 44846470
3 6552479 5325307.4 4457828
4 0 0.0 0
5 0 0.0 0
6 0 0.0 0
7 3053712 2132914.9 1876311
8 0 0.0 0
9 0 0.0 0
10 653394 912730.6 868511
11 653394 912730.6 868511
12 117153 288258.0 260146
13 159769 184069.4 190006
14 376473 440403.1 418360
15 0 0.0 0
16 0 0.0 0
17 2255971 1662018.3 1184213
18 1911420 1261769.9 1151561
19 0 0.0 0
20 0 0.0 0
21 344551 400248.3 32652
22 0 0.0 0
23 1261763 1260893.4 1164856
24 211604 135373.5 105783
25 0 0.0 0
26 0 0.0 0
27 0 0.0 0
28 1050159 1125519.9 1059073
29 35617 101665.4 232799
30 0 0.0 0
31 0 0.0 0
32 47383 89216.8 83837
33 56442 63575.9 106374
34 373479 296049.5 263256
35 238356 227812.2 0
36 298882 347200.1 372808
37 0 0.0 0
38 0 0.0 0
39 0 0.0 0
40 0 0.0 0
41 0 0.0 0
42 0 0.0 0
43 0 0.0 0
44 0 0.0 0
45 0 0.0 0
46 0 0.0 0
47 0 0.0 0
48 0 0.0 0
49 0 0.0 0
50 0 0.0 0
51 10994594 13447448.2 12669603
52 8648522 11118558.0 10056823
53 8648522 10753925.5 9328503
54 0 0.0 0
55 0 0.0 0
56 0 364632.5 728320
57 0 0.0 0
58 850713 1518232.0 877438
59 0 9845.1 61032
60 0 0.0 0
61 0 0.0 0
62 0 0.0 0
63 850713 1508386.9 816406
64 0 0.0 0
65 0 0.0 0
66 59184 56353.2 102748
67 432975 798180.5 636836
68 238356 455622.9 0
69 120198 198230.3 76822
70 0 0.0 0
71 0 0.0 0
72 2346072 2319045.2 2551748
73 2242167 2161144.7 2355232
74 0 0.0 0
75 1867831 1863232.7 1896458
76 0 0.0 0
77 0 0.0 0
78 374336 297912.0 458775
79 103905 157900.5 196515
80 0 0.0 0
81 0 0.0 0
82 103905 157900.5 196515
83 0 0.0 0
84 0 0.0 0
85 0 0.0 0
86 0 0.0 0
87 0 0.0 0
88 0 0.0 0
89 0 0.0 0
90 24755866 27732788.4 27719039
91 16247102 17721139.5 17698176
92 293764 3316.7 0
93 0 0.0 0
94 0 0.0 0
95 0 0.0 0
96 0 0.0 0
97 0 0.0 0
98 0 0.0 0
99 0 0.0 0
100 5176853 6549998.6 6288303
101 935495 1020368.6 1002072
102 4039691 4406197.3 4239222
103 0 0.0 0
104 0 0.0 0
105 0 0.0 0
106 0 0.0 0
107 0 0.0 0
108 0 0.0 0
109 0 0.0 0
110 201667 1123432.7 1047010
111 0 0.0 0
112 491239 934475.8 1406542
113 0 0.0 0
114 0 0.0 0
115 2546909 2523857.8 2326018
m.Passivo.aj.med=lapply(1:(ncol(m.Passivo.aj)-1), function(i) (m.Passivo.aj.med[,i] + m.Passivo.aj.med[,i+1])/2)
m.Passivo.aj.med= matrix(unlist(m.Passivo.aj.med), byrow = FALSE, nrow = nrow(m.Passivo.aj))
m.Passivo.aj.med=as.data.frame(m.Passivo.aj.med)
row.names(m.Passivo.aj.med)=rownomes
row.names(m.Passivo.aj)=rownomes
colnames(m.Passivo.aj.med)=anos.med
rownomes=rownames(m.PL)
m.PL.aj = as.data.frame(sapply(m.PL.aj, as.numeric))
m.PL.aj.med=m.PL.aj
m.PL.aj.med[ ,anos.med]
2018 2017 2016 2015 2014 2013 2012
1 15697391 16262329 15064328 17214597 22886919 21755278 24755866
2 13200295 14137780 13089677 13949536 14821542 14034587 16247102
3 309391 333887 306852 375651 388960 361646 293764
4 0 0 0 0 0 0 0
5 0 0 0 0 0 0 0
6 0 0 0 0 0 0 0
7 0 0 0 0 0 0 0
8 0 0 0 0 0 0 0
9 0 0 0 0 0 0 0
10 0 0 0 0 0 0 0
11 766942 216568 0 711873 4673433 4272930 5176853
12 47984 12478 0 711873 861315 808100 935495
13 0 0 0 0 3619805 3464830 4039691
14 0 0 0 0 0 0 0
15 0 0 0 0 0 0 0
16 0 0 0 0 0 0 0
17 0 0 0 0 0 0 0
18 0 0 0 0 0 0 0
19 0 0 0 0 0 0 0
20 0 0 0 0 0 0 0
21 718958 204089 0 0 192314 0 201667
22 0 0 0 0 0 0 0
23 -10330 64846 25782 357921 512048 634929 491239
24 0 0 0 0 0 0 0
25 0 0 0 0 0 0 0
26 1431093 1509248 1642018 1819615 2490935 2451186 2546909
2011 2010
1 27732788.4 27719039
2 17721139.5 17698176
3 3316.7 0
4 0.0 0
5 0.0 0
6 0.0 0
7 0.0 0
8 0.0 0
9 0.0 0
10 0.0 0
11 6549998.6 6288303
12 1020368.6 1002072
13 4406197.3 4239222
14 0.0 0
15 0.0 0
16 0.0 0
17 0.0 0
18 0.0 0
19 0.0 0
20 0.0 0
21 1123432.7 1047010
22 0.0 0
23 934475.8 1406542
24 0.0 0
25 0.0 0
26 2523857.8 2326018
m.PL.aj.med=lapply(1:(ncol(m.PL.aj.med)-1), function(i) (m.PL.aj.med[,i] + m.PL.aj.med[,i+1])/2)
m.PL.aj.med= matrix(unlist(m.PL.aj.med), byrow = FALSE, nrow = nrow(m.PL.aj))
m.PL.aj.med=as.data.frame(m.PL.aj.med)
row.names(m.PL.aj.med)=rownomes
row.names(m.PL.aj)=rownomes
colnames(m.PL.aj.med)=anos.med
rownomes=rownames(m.AC)
m.AC.aj = as.data.frame(sapply(m.AC.aj, as.numeric))
m.AC.aj.med=m.AC.aj
m.AC.aj.med[ ,anos.med]
2018 2017 2016 2015 2014 2013 2012
1 8319920 7641548.840 6273686.2 7730695.4 9822229 10789140 14193612
2 1106790 1896319.094 713837.5 918800.3 2573717 3041621 4253349
3 586559 582329.639 1524699.0 1405499.0 905262 965243 2056038
4 0 0.000 0.0 0.0 0 0 0
5 0 0.000 0.0 0.0 0 0 0
6 0 0.000 0.0 0.0 0 0 0
7 0 0.000 0.0 0.0 0 0 0
8 0 0.000 0.0 0.0 0 0 0
9 1894291 1665965.184 1169330.2 1639984.4 1520817 1893862 2096859
10 0 1665965.184 1169330.2 1639984.4 1520817 1893862 2096859
11 0 0.000 0.0 0.0 0 0 0
12 3880635 2959759.486 2582481.9 3155485.0 4290014 4447659 5054897
13 0 0.000 0.0 0.0 0 0 0
14 0 0.000 0.0 0.0 0 0 0
15 0 0.000 0.0 0.0 0 0 0
16 0 0.000 0.0 0.0 0 0 0
17 856042 665614.297 376325.7 796268.2 768357 579296 954843
18 0 0.000 0.0 0.0 0 0 0
19 0 0.000 0.0 0.0 0 0 0
20 856042 665614.297 376325.7 796268.2 768357 579296 954843
21 617731 189410.958 124141.9 242189.2 437227 373701 649258
22 130197 198796.306 112458.6 190875.6 0 0 0
23 13562 148955.320 2442.4 2706.1 15421 14338 16226
24 4050 4639.659 7165.4 14325.0 21772 15641 44704
25 347 123799.202 85822.7 171016.7 214167 122899 177670
26 90155 12.852 44294.7 175155.7 79770 52716 66985
2011 2010
1 18008021 17515468
2 4231651 6038908
3 3339134 579432
4 0 0
5 0 0
6 0 0
7 0 0
8 0 0
9 1829631 2527455
10 1829631 2527455
11 0 0
12 7378522 7135076
13 0 0
14 0 0
15 0 0
16 0 0
17 1623255 1592941
18 0 0
19 0 0
20 1623255 1592941
21 1166292 1199209
22 0 0
23 19817 82044
24 104661 102059
25 289511 256284
26 42974 35388
m.AC.aj.med=lapply(1:(ncol(m.AC.aj.med)-1), function(i) (m.AC.aj.med[,i] + m.AC.aj.med[,i+1])/2)
m.AC.aj.med= matrix(unlist(m.AC.aj.med), byrow = FALSE, nrow = nrow(m.AC.aj))
m.AC.aj.med=as.data.frame(m.AC.aj.med)
row.names(m.AC.aj.med)=rownomes
row.names(m.AC.aj)=rownomes
colnames(m.AC.aj.med)=anos.med
rownomes=rownames(m.ANC)
m.ANC.aj = as.data.frame(sapply(m.ANC.aj, as.numeric))
m.ANC.aj.med=m.ANC.aj
m.ANC.aj.med[,anos.med]
2018 2017 2016 2015 2014 2013 2012
1 17987885 19841975.7 19616284.4 23919642.2 27016653 25206261 29318350.6
2 4700822 4408170.5 4229539.9 5393393.7 3878989 3269356 3269136.1
3 0 0.0 0.0 0.0 0 0 0.0
4 0 0.0 0.0 0.0 0 0 0.0
5 0 0.0 0.0 0.0 0 0 0.0
6 0 0.0 0.0 0.0 0 0 0.0
7 0 0.0 0.0 0.0 0 0 0.0
8 64058 264846.1 162351.0 165652.8 162433 114186 0.0
9 64058 140794.1 0.0 0.0 0 0 0.0
10 0 124052.0 0.0 0.0 0 0 0.0
11 26899 41809.4 22467.1 0.0 67023 0 0.0
12 0 0.0 0.0 0.0 0 0 0.0
13 2765356 3262446.9 3094219.3 3767021.2 2461875 2212031 0.0
14 0 0.0 0.0 0.0 0 0 0.0
15 0 0.0 0.0 0.0 0 0 0.0
16 2342 3370.5 3809.8 5065.5 27305 24062 16890.3
17 0 0.0 0.0 0.0 0 0 0.0
18 0 0.0 0.0 0.0 0 0 0.0
19 0 0.0 0.0 0.0 0 0 0.0
20 1842167 835697.6 946692.7 1455654.2 1160354 919077 3252245.8
21 0 0.0 0.0 0.0 0 0 0.0
22 0 0.0 0.0 0.0 0 0 0.0
23 0 0.0 0.0 0.0 0 0 2024374.1
24 523557 723581.1 654696.3 685871.7 690950 653104 575959.1
25 3553 1268.1 99826.4 642544.4 307443 46907 383121.4
26 454284 58778.6 95264.9 93298.9 116907 131075 177114.8
27 0 0.0 67600.7 0.0 NA 0 0.0
28 676023 NA NA NA NA NA NA
29 184750 52069.8 29304.4 33939.3 45054 87992 91676.4
30 1088094 1128910.8 1116738.6 1244908.3 1397723 1339868 605839.0
31 1088094 1128910.8 1116738.6 1244908.3 1397723 1339868 605839.0
32 473765 479083.3 520906.9 578817.4 603936 547273 601939.7
33 614329 649827.5 595831.7 666090.9 793787 792595 3899.3
34 0 0.0 0.0 0.0 0 0 0.0
35 11715022 13797541.5 13633674.3 16927307.9 18951535 17912098 22268718.6
36 10869010 12893359.7 12748549.3 15290128.3 16498346 15697864 19313757.3
37 0 0.0 0.0 0.0 0 0 0.0
38 846012 904181.9 885125.0 1637179.6 2453188 2214234 2954961.3
39 695596 725284.0 688103.0 387971.6 2900483 2772930 3266333.3
40 0 0.0 0.0 0.0 0 0 0.0
41 0 0.0 0.0 0.0 0 0 0.0
42 0 0.0 0.0 0.0 0 0 0.0
2011 2010
1 30167330.2 28343261.8
2 2829536.5 2091928.8
3 0.0 0.0
4 0.0 0.0
5 0.0 0.0
6 0.0 0.0
7 0.0 0.0
8 0.0 46108.5
9 0.0 46108.5
10 0.0 0.0
11 0.0 0.0
12 0.0 0.0
13 0.0 0.0
14 0.0 0.0
15 0.0 0.0
16 8328.2 8681.6
17 0.0 0.0
18 0.0 0.0
19 0.0 0.0
20 2821208.3 2083247.2
21 0.0 0.0
22 0.0 0.0
23 1162661.4 580067.6
24 709322.5 646571.9
25 635878.2 519873.4
26 225688.6 254868.3
27 0.0 0.0
28 NA NA
29 87657.7 81866.1
30 624808.0 3002406.0
31 624808.0 3002406.0
32 620164.0 2442932.4
33 4644.0 559473.6
34 0.0 0.0
35 23221480.7 20793544.7
36 15299690.9 14194061.0
37 0.0 0.0
38 7921789.8 6599483.8
39 3579162.6 2537248.4
40 0.0 0.0
41 0.0 0.0
42 0.0 0.0
m.ANC.aj.med=lapply(1:(ncol(m.ANC.aj.med)-1), function(i) (m.ANC.aj.med[,i] + m.ANC.aj.med[,i+1])/2)
m.ANC.aj.med= matrix(unlist(m.ANC.aj.med), byrow = FALSE, nrow = nrow(m.ANC.aj))
m.ANC.aj.med=as.data.frame(m.ANC.aj.med)
row.names(m.ANC.aj.med)=rownomes
row.names(m.ANC.aj)=rownomes
colnames(m.ANC.aj.med)=anos.med
rownomes=rownames(m.PC)
m.PC.aj = as.data.frame(sapply(m.PC.aj, as.numeric))
m.PC.aj.med=m.PC.aj
m.PC.aj.med[ ,anos.med]
2018 2017 2016 2015 2014 2013 2012
1 3105510 3024068.9 1599704.2 4895621.41 5517233.0 5278710.6 6552479
2 205583 202139.0 195424.5 319345.65 341912.8 289758.2 0
3 0 0.0 0.0 0.00 0.0 0.0 0
4 0 0.0 0.0 0.00 0.0 0.0 0
5 1133763 1046297.6 839284.4 942105.77 2039078.2 2797704.1 3053712
6 0 0.0 0.0 0.00 0.0 0.0 0
7 0 0.0 0.0 0.00 0.0 0.0 0
8 126212 103378.1 65432.0 105279.39 142663.7 156261.0 653394
9 126212 103378.1 65432.0 105279.39 142663.7 156261.0 653394
10 3299 1535.8 7474.8 98217.37 27743.7 4827.2 117153
11 122913 101842.2 57957.2 7062.02 114920.0 151433.8 159769
12 0 0.0 0.0 0.00 0.0 0.0 376473
13 0 0.0 0.0 0.00 0.0 0.0 0
14 0 0.0 0.0 0.00 0.0 0.0 0
15 467036 1060285.2 67140.6 2194613.41 2080982.3 1536492.7 2255971
16 396799 993848.7 61636.1 2124453.56 2019876.1 1488526.7 1911420
17 0 0.0 0.0 0.00 0.0 0.0 0
18 0 0.0 0.0 0.00 0.0 0.0 0
19 70237 66436.4 5504.5 70159.85 61106.2 47965.9 344551
20 0 0.0 0.0 0.00 0.0 0.0 0
21 1403076 850676.9 570278.7 1600469.93 1213490.3 1096395.8 1261763
22 0 0.0 0.0 0.00 0.0 161763.9 211604
23 0 0.0 0.0 0.00 0.0 0.0 0
24 0 0.0 0.0 0.00 0.0 0.0 0
25 0 0.0 0.0 0.00 0.0 0.0 0
26 1403076 850676.9 570278.7 1600469.93 1213490.3 934631.8 1050159
27 202809 81016.2 21816.6 163.03 37739.4 1296.0 35617
28 0 0.0 0.0 0.00 0.0 0.0 0
29 0 0.0 0.0 0.00 0.0 0.0 0
30 4180 21949.5 8457.5 9404.17 9222.3 29767.2 47383
31 0 0.0 48169.9 229228.20 114723.6 58927.9 56442
32 63484 87174.6 35505.9 46841.74 134405.2 205966.5 373479
33 0 0.0 0.0 0.00 0.0 246739.6 238356
34 166676 151533.3 102350.1 219351.01 166489.2 391934.6 298882
35 965927 509003.3 353978.6 1095481.79 750910.6 0.0 0
36 0 0.0 0.0 0.00 0.0 0.0 0
37 0 0.0 0.0 0.00 0.0 0.0 0
38 0 0.0 0.0 0.00 0.0 0.0 0
39 0 0.0 0.0 0.00 0.0 0.0 0
40 0 0.0 0.0 0.00 0.0 0.0 0
41 0 0.0 0.0 0.00 0.0 0.0 0
42 0 0.0 0.0 0.00 0.0 0.0 0
43 0 0.0 0.0 0.00 0.0 0.0 0
44 0 0.0 0.0 0.00 0.0 0.0 0
45 0 0.0 0.0 0.00 0.0 0.0 0
46 0 0.0 0.0 0.00 0.0 0.0 0
47 0 0.0 0.0 0.00 0.0 0.0 0
48 0 0.0 0.0 0.00 0.0 0.0 0
2011 2010
1 5325307 4457828
2 0 0
3 0 0
4 0 0
5 2132915 1876311
6 0 0
7 0 0
8 912731 868511
9 912731 868511
10 288258 260146
11 184069 190006
12 440403 418360
13 0 0
14 0 0
15 1662018 1184213
16 1261770 1151561
17 0 0
18 0 0
19 400248 32652
20 0 0
21 1260893 1164856
22 135373 105783
23 0 0
24 0 0
25 0 0
26 1125520 1059073
27 101665 232799
28 0 0
29 0 0
30 89217 83837
31 63576 106374
32 296050 263256
33 227812 0
34 347200 372808
35 0 0
36 0 0
37 0 0
38 0 0
39 0 0
40 0 0
41 0 0
42 0 0
43 0 0
44 0 0
45 0 0
46 0 0
47 0 0
48 0 0
m.PC.aj.med=lapply(1:(ncol(m.PC.aj.med)-1), function(i) (m.PC.aj.med[,i] + m.PC.aj.med[,i+1])/2)
m.PC.aj.med= matrix(unlist(m.PC.aj.med), byrow = FALSE, nrow = nrow(m.PC.aj))
m.PC.aj.med=as.data.frame(m.PC.aj.med)
row.names(m.PC.aj.med)=rownomes
row.names(m.PC.aj)=rownomes
colnames(m.PC.aj.med)=anos.med
rownomes=rownames(m.PNC)
m.PNC.aj = as.data.frame(sapply(m.PNC.aj, as.numeric))
m.PNC.aj.med=m.PNC.aj
m.PNC.aj.med[ ,anos.med]
2018 2017 2016 2015 2014 2013 2012 2011
1 7390494 8211074 9027213.7 9136782 8206272 8460481 10994594 13447448.2
2 5382754 6046767 6799141.7 6839536 6072958 6365593 8648522 11118558.0
3 4562971 5096414 5815272.2 5692366 4854848 5212886 8648522 10753925.5
4 0 0 0.0 0 0 0 0 0.0
5 0 0 0.0 0 0 0 0 0.0
6 819783 950352 983869.5 1147170 1218110 1152707 0 364632.5
7 0 0 0.0 0 0 0 0 0.0
8 234550 247052 357612.9 543518 275579 129562 850713 1518232.0
9 134254 153338 151984.6 187093 0 0 0 9845.1
10 0 0 0.0 0 0 0 0 0.0
11 0 0 0.0 0 0 0 0 0.0
12 0 153338 151984.6 187093 0 0 0 0.0
13 100296 93714 205628.3 356425 275579 129562 850713 1508386.9
14 0 0 0.0 0 0 0 0 0.0
15 0 0 0.0 0 0 0 0 0.0
16 0 0 8974.2 11001 12165 41680 59184 56353.2
17 0 0 101554.8 234036 222282 61117 432975 798180.5
18 0 0 0.0 0 0 0 238356 455622.9
19 100296 93714 95099.3 111387 41133 26765 120198 198230.3
20 0 0 0.0 0 0 0 0 0.0
21 0 0 0.0 0 0 0 0 0.0
22 1873486 2010970 2076087.4 2110154 2133314 2094888 2346072 2319045.2
23 1669779 1841392 1934244.1 1964226 2029450 2006420 2242167 2161144.7
24 0 0 0.0 0 0 0 0 0.0
25 1034228 1124918 1331474.9 1324206 1448959 1421150 1867831 1863232.7
26 0 0 0.0 0 0 0 0 0.0
27 0 0 0.0 0 0 0 0 0.0
28 635551 716474 602769.1 640020 580491 585270 374336 297912.0
29 203707 169578 141843.3 145928 103864 88468 103905 157900.5
30 0 0 0.0 0 0 0 0 0.0
31 0 0 0.0 0 0 0 0 0.0
32 203707 169578 141843.3 145928 103864 88468 103905 157900.5
33 0 0 0.0 0 0 0 0 0.0
34 0 0 0.0 0 0 0 0 0.0
35 0 0 0.0 0 0 0 0 0.0
36 0 0 0.0 0 0 0 0 0.0
37 0 0 0.0 0 0 0 0 0.0
38 0 0 0.0 0 0 0 0 0.0
39 0 0 0.0 0 0 0 0 0.0
2010
1 12669603
2 10056823
3 9328503
4 0
5 0
6 728320
7 0
8 877438
9 61032
10 0
11 0
12 0
13 816406
14 0
15 0
16 102748
17 636836
18 0
19 76822
20 0
21 0
22 2551748
23 2355232
24 0
25 1896458
26 0
27 0
28 458775
29 196515
30 0
31 0
32 196515
33 0
34 0
35 0
36 0
37 0
38 0
39 0
m.PNC.aj.med=lapply(1:(ncol(m.PNC.aj.med)-1), function(i) (m.PNC.aj.med[,i] + m.PNC.aj.med[,i+1])/2)
m.PNC.aj.med= matrix(unlist(m.PNC.aj.med), byrow = FALSE, nrow = nrow(m.PNC.aj))
m.PNC.aj.med=as.data.frame(m.PNC.aj.med)
row.names(m.PNC.aj.med)=rownomes
row.names(m.PNC.aj)=rownomes
colnames(m.PNC.aj.med)=anos.med
rownomes=rownames(m.PERM)
m.PERM.aj = as.data.frame(sapply(m.PERM.aj, as.numeric))
m.PERM.aj.med=m.PERM.aj
m.PERM.aj.med=m.PERM.aj.med[ ,anos_uso]
m.PERM.aj.med=lapply(1:(ncol(m.PERM.aj.med)-1), function(i) (m.PERM.aj.med[,i] + m.PERM.aj.med[,i+1])/2)
m.PERM.aj.med=matrix(unlist(m.PERM.aj.med), byrow = FALSE, nrow = nrow(m.PERM.aj))
m.PERM.aj.med=as.data.frame(m.PERM.aj.med)
row.names(m.PERM.aj.med)=rownomes
row.names(m.PERM.aj)= rownomes
colnames(m.PERM.aj.med)= anos.med
rownomes=rownames(m.RLP)
m.RLP.aj = as.data.frame(sapply(m.RLP.aj, as.numeric))
m.RLP.aj.med=m.RLP.aj
m.RLP.aj.med[ ,anos.med]
2018 2017 2016 2015 2014 2013 2012
1 18199534 20059906.9 19668055.8 23953581.5 27128730 25294252 29410027
2 4700822 4408170.5 4229539.9 5393393.7 3878989 3269356 3269136
3 0 0.0 0.0 0.0 0 0 0
4 0 0.0 0.0 0.0 0 0 0
5 0 0.0 0.0 0.0 0 0 0
6 0 0.0 0.0 0.0 0 0 0
7 0 0.0 0.0 0.0 0 0 0
8 64058 264846.1 162351.0 165652.8 162433 114186 0
9 64058 140794.1 0.0 0.0 0 0 0
10 0 124052.0 0.0 0.0 0 0 0
11 26899 41809.4 22467.1 0.0 67023 0 0
12 0 0.0 0.0 0.0 0 0 0
13 2765356 3262446.9 3094219.3 3767021.2 2461875 2212031 0
14 0 0.0 0.0 0.0 0 0 0
15 0 0.0 0.0 0.0 0 0 0
16 2342 3370.5 3809.8 5065.5 27305 24062 16890
17 0 0.0 0.0 0.0 0 0 0
18 0 0.0 0.0 0.0 0 0 0
19 0 0.0 0.0 0.0 0 0 0
20 1842167 835697.6 946692.7 1455654.2 1160354 919077 3252246
21 0 0.0 0.0 0.0 0 0 0
22 0 0.0 0.0 0.0 0 0 0
23 0 0.0 0.0 0.0 0 0 2024374
24 523557 723581.1 654696.3 685871.7 690950 653104 575959
25 3553 1268.1 99826.4 642544.4 307443 46907 383121
26 454284 58778.6 95264.9 93298.9 116907 131075 177115
27 0 0.0 67600.7 0.0 NA 0 0
28 676023 NA NA NA NA NA NA
29 184750 52069.8 29304.4 33939.3 45054 87992 91676
2011 2010
1 30254987.9 28425127.9
2 2829536.5 2091928.8
3 0.0 0.0
4 0.0 0.0
5 0.0 0.0
6 0.0 0.0
7 0.0 0.0
8 0.0 46108.5
9 0.0 46108.5
10 0.0 0.0
11 0.0 0.0
12 0.0 0.0
13 0.0 0.0
14 0.0 0.0
15 0.0 0.0
16 8328.2 8681.6
17 0.0 0.0
18 0.0 0.0
19 0.0 0.0
20 2821208.3 2083247.2
21 0.0 0.0
22 0.0 0.0
23 1162661.4 580067.6
24 709322.5 646571.9
25 635878.2 519873.4
26 225688.6 254868.3
27 0.0 0.0
28 NA NA
29 87657.7 81866.1
m.RLP.aj.med=lapply(1:(ncol(m.RLP.aj.med)-1), function(i) (m.RLP.aj.med[,i] + m.RLP.aj.med[,i+1])/2)
m.RLP.aj.med=matrix(unlist(m.RLP.aj.med), byrow = FALSE, nrow = nrow(m.RLP.aj))
m.RLP.aj.med=as.data.frame(m.RLP.aj.med)
row.names(m.RLP.aj.med)=rownomes
row.names(m.RLP.aj)=rownomes
colnames(m.RLP.aj.med)=anos.med
Análise Fundamentalista (VIII)
Comparação: Valor original, Corrigido e Médio
library(ggrepel)
# Visualizar dados Ativo original, corrigido e medio
g1.str="Ativo Total - AT"
g2.str= "Ativo Total - AT"
g3.str= "Ativo Total - AT"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame( t(m.Ativo[g1.str,1:9]) )
g2.dt = as.data.frame( t(m.Ativo.aj.cm[g2.str,1:9]) )
g3.dt = as.data.frame( t(m.Ativo.aj.med[g3.str,1:9]) )
g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g1.class[1]=paste(g1.class[1]," NOM", sep="")
g2.class[1]=paste(g2.class[1]," COR", sep="")
g3.class[1]=paste(g3.class[1]," MED", sep="")
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)
g0 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Ativo Total (Bilhões R$)") +
ggtitle("Comparativo de Ativos Ajustados")+
scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(20000000,50000000,by= 5000000), limits=c(20000000,50000000))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
box.padding = 0.25, point.padding = 0.25,
size = 3.5, nudge_y = 0.20,
segment.color = "grey70") + geom_point(aes(shape = Contas),size =4.5) +
scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g0= g0 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.80, 0.75),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g0)
Análise Fundamentalista (IX)
Visualizar Contas do DRE
f.dec = function(x, k) trimws(format(round(x, k), nsmall=k))
f.perc= function(x) paste0((x*100), "%")
g1.str="Receita de Venda de Bens e/ou Servicos - DRE"
g2.str= "Resultado Antes do Resultado Financeiro e dos Tributos - DRE"
g3.str= "Lucro/Prejuizo Consolidado do Periodo - DRE"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame( t(m.DRE.aj.cm[g1.str,1:9]) )
g2.dt = as.data.frame( t(m.DRE.aj.cm[g2.str,1:9]) )
g3.dt = as.data.frame( t(m.DRE.aj.cm[g3.str,1:9]) )
g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)
g01 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="DRE (Bilhões R$)") +
ggtitle("Comparativo de Contas - DRE")+
scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"),
breaks=seq(-5000000,20000000,by= 5000000), limits=c(-5000000,20000000))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
box.padding = 0.3, point.padding = 0.3,
size = 3, nudge_y = 0.25,
segment.color = "grey70") + geom_point(aes(shape = Contas),size = 4 ) +
scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g01=g01 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.28, 0.55), legend.title = element_text(size = 6.5),
legend.text = element_text(size = 6.5), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=0.8, linetype="solid"))
print(g01)
Análise Fundamentalista (X)
Correção Monetária e IGP-DI
rm(g.dt)
rm(g1.dt)
rm(g2.dt)
f.dec = function(x, k) trimws(format(round(x, k), nsmall=k))
f.perc= function(x) paste0((x*100), "%")
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.str="Fator Correcao - MERC"
g2.str= "IGP-DI - MERC"
g1.dt = as.data.frame(t(v.CM.aj[1:9]) )
g2.dt = as.data.frame(t(v.IGPDI.aj[1:9]) )
g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g1.dt["Indice"]=g1.conta
g2.dt["Indice"]=g2.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"] = as.Date(Anos,"%Y%m%d")
g2.dt["Anos"] = as.Date(Anos,"%Y%m%d")
g.dt=(rbind(g1.dt,g2.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Indice = as.factor(g.dt$Indice)
g02 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indice, colour= Indice ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
scale_color_manual(breaks = c("Fator Correcao", "IGP-DI"),
values=c("tomato", "cornflowerblue"))+
labs( x="Ano", y="IGP-DI e CM (%)") +
ggtitle("IGP-DI e CM")+
scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(0,1.6,by= 0.2), limits=c(-0.1,1.6))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
box.padding = 0.15, point.padding = 0.15,
size = 3.5, nudge_y = 0.10,
segment.color = "grey70") + geom_point(aes(shape = Indice),size =4.5) +
scale_shape_manual(values=c(15, 16)) + scale_size_manual(values=c(4.5, 4.5)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g02 =g02 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.15, 0.50),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g02)
Análise de Tendências
Análise Vertical
#
#Fazer analise vertical
#
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
# Ativo
rownomes=rownames(m.Ativo)
m.Ativo.aj.av= m.Ativo.aj.med
v.AT.aj=m.Ativo.aj.med["Ativo Total - AT",] # linha do Ativo Total ajustado
rownomes=rownames(m.Ativo)
row.names(m.Ativo.aj.med)=rownomes
m.Ativo.aj.av= m.Ativo.aj.med
m.Ativo.aj.av=as.data.frame(sweep(m.Ativo.aj.av, 2, unlist(v.AT.aj), `/`))
colnames(m.Ativo.aj.av)=Anos
row.names(m.Ativo.aj.av)=rownomes
colnames(v.AT.aj)=Anos
# Passivo
rownomes=rownames(m.Passivo)
m.Passivo.aj.av= m.Passivo.aj.med
v.PT.aj=m.Passivo.aj.med["Passivo Total - PT",] # linha do Passivo Total ajustado
m.Passivo.aj.av=as.data.frame(sweep(m.Passivo.aj.av, 2, unlist(v.PT.aj), `/`))
colnames(m.Passivo.aj.av)=Anos
row.names(m.Passivo.aj.av)=rownomes
colnames(v.PT.aj)=Anos
# DRE
m.DRE.aj.av= as.data.frame(m.DRE.aj.cm[,1:9])
colnames(m.Ativo.aj.av)=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
rownomes=rownames(m.DRE.aj.cm)
m.DRE.aj.av= m.DRE.aj.cm
v.DRE.aj=m.DRE.aj.cm["Receita de Venda de Bens e/ou Servicos - DRE",] # linha da Receita Total ajustado
m.DRE.aj.av=as.data.frame(sweep(m.DRE.aj.av, 2, unlist(v.DRE.aj), `/`))
colnames(m.DRE.aj.av)=Anos
row.names(m.DRE.aj.av)=rownomes
colnames(v.DRE.aj)=Anos
Análise de Tendências (I)
Visualizar Análise Vertical: Passivos e Ativos
# Visualizar dados Passivos AV
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
f.dec = function(x, k) trimws(format(round(x, k), nsmall=k))
f.perc= function(x) paste0((x*100), "%")
g1.str="Passivo Circulante - PC"
g2.str= "Passivo Nao Circulante - PNC"
g3.str= "Patrimonio Liquido Consolidado - PL"
g1.dt =as.data.frame(t(subset(m.Passivo.aj.av[g1.str,],select=Anos)))
g2.dt =as.data.frame(t(subset(m.Passivo.aj.av[g2.str,],select=Anos)))
g3.dt =as.data.frame(t(subset(m.Passivo.aj.av[g3.str,],select=Anos)))
g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)
g03 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Passivos & PL %") +
ggtitle("An. Vertical (% do Passivo Total)")+
scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(0,1,by=0.20), limits=c(0,1))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
box.padding = 0.0, point.padding = 0.0,
size = 3 , nudge_y = 0.05,
segment.color = "grey70") + geom_point(aes(shape = Contas),size = 3) +
scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g03 = g03 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.20, 0.85), legend.title = element_text(size = 5.5),
legend.text = element_text(size = 5.5), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g03)
#Visualizar dados do Ativo: AV
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)
g1.str="Caixa e Equivalentes de Caixa - AC"
g2.str= "Ativo Circulante - AC"
g3.str= "Investimentos - ANC"
g4.str="Imobilizado - ANC"
g5.str= "Ativo Nao Circulante - ANC"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(subset(m.Ativo.aj.av[g1.str,],select=Anos)))
g2.dt =as.data.frame(t(subset(m.Ativo.aj.av[g2.str,],select=Anos)))
g3.dt =as.data.frame(t(subset(m.Ativo.aj.av[g3.str,],select=Anos)))
g4.dt =as.data.frame(t(subset(m.Ativo.aj.av[g4.str,],select=Anos)))
g5.dt =as.data.frame(t(subset(m.Ativo.aj.av[g5.str,],select=Anos)))
g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g4.class=unlist(strsplit(g4.str," - ",fixed=TRUE))
g5.class=unlist(strsplit(g5.str," - ",fixed=TRUE))
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g4.conta=c(rep(g4.class[1],9))
g5.conta=c(rep(g5.class[1],9))
g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
g4.dt["Contas"]=g4.conta
g5.dt["Contas"]=g5.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
names(g5.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g5.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt,g5.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g5.dt$Anos = as.Date(g5.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)
g04 =ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas, shape= Contas))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
# scale_color_manual(breaks = c(g1.class[1], g2.class[1],
# g3.class[1],g4.class[1], g5.class[1]),
scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1","orchid"))+
labs( x="Ano", y="Ativos (%)") +
ggtitle("An. Vertical (% do Ativo Total)")+
scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-0.1,1.1,by= 0.2), limits=c(-0.1,1.1))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
box.padding = 0.35, point.padding = 0.35,
size = 3, nudge_y = 0.05,
segment.color = "grey70") +
geom_point(aes(shape = Contas),size = 3 , show.legend = TRUE) +
scale_shape_manual(values=c(15, 16, 17, 18, 20))+
theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g04 = g04 +
theme(legend.position = c(0.20, 0.85), legend.title = element_text(size = 7),
legend.text = element_text(size = 5.5), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g04)
Tarefa 1 : Análise de Tendências
Visualizar Análise Vertical: Refaça essa visualização do DRE
Análise de Tendências (II)
Análise Horizontal
#Ativo
m.Ativo.aj.med = as.data.frame(sapply(m.Ativo.aj.med, as.numeric))
colnames(m.Ativo.aj.med)=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
m.Ativo.aj.ah = m.Ativo.aj.med
m.Ativo.aj.ah = as.data.frame(apply(m.Ativo.aj.med, 2, "/", m.Ativo.aj.med[,"2010"]))
rownomes=rownames(m.Ativo)
row.names(m.Ativo.aj.ah)=rownomes
row.names(m.Ativo.aj.med)=rownomes
#m.Ativo.aj.ah[,"2010"]
# Passivo
m.Passivo.aj.med = as.data.frame(sapply(m.Passivo.aj.med, as.numeric))
colnames(m.Passivo.aj.med)=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
m.Passivo.aj.ah = m.Passivo.aj.med
m.Passivo.aj.ah = as.data.frame(apply(m.Passivo.aj.med, 2, "/", m.Passivo.aj.med[,"2010"]))
rownomes=rownames(m.Passivo)
row.names(m.Passivo.aj.ah)=rownomes
row.names(m.Passivo.aj.med)=rownomes
# m.Passivo.aj.ah[,"2010"]
#DRE
m.DRE.aj.cm= m.DRE.aj.cm[,1:9]
m.DRE.aj.ah = m.DRE.aj.cm[,1:9]
colnames(m.DRE.aj.cm)=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
m.DRE.aj.ah = as.data.frame(apply(m.DRE.aj.ah, 2, "/", m.DRE.aj.cm[,"2010"]))
rownomes=rownames(m.DRE)
row.names(m.DRE.aj.ah)=rownomes
row.names(m.DRE.aj.cm)=rownomes
Análise de Tendências (III)
Visualizar a Análise Horizontal
# Visualizar dados Passivos AH
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)
g1.str="Passivo Circulante - PC"
g2.str= "Passivo Nao Circulante - PNC"
g3.str= "Patrimonio Liquido Consolidado - PL"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(subset(m.Passivo.aj.ah[g1.str,],select=Anos)))
g2.dt =as.data.frame(t(subset(m.Passivo.aj.ah[g2.str,],select=Anos)))
g3.dt =as.data.frame(t(subset(m.Passivo.aj.ah[g3.str,],select=Anos)))
g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)
g06 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Passivos & PL %") +
ggtitle("An. Horizontal (% de 2010)")+
scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(0.4,1.4,by=0.20), limits=c(0.4,1.4))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
box.padding = 0.2, point.padding = 0.2,
size = 3, nudge_y = 0.05,
segment.color = "grey70") + geom_point(aes(shape = Contas),size = 3) +
scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g06= g06 +
theme(legend.position = c(0.20, 0.20), legend.title = element_text(size = 7),
legend.text = element_text(size = 7), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g06)
Análise de Tendências (IV)
Visualizar a Análise Horizontal
#Visualizar dados do Ativo: AH
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)
g1.str="Caixa e Equivalentes de Caixa - AC"
g2.str= "Ativo Circulante - AC"
g3.str= "Investimentos - ANC"
g4.str="Imobilizado - ANC"
g5.str= "Ativo Nao Circulante - ANC"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g1.str,],select=Anos)))
g2.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g2.str,],select=Anos)))
g3.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g3.str,],select=Anos)))
g4.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g4.str,],select=Anos)))
g5.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g5.str,],select=Anos)))
g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g4.class=unlist(strsplit(g4.str," - ",fixed=TRUE))
g5.class=unlist(strsplit(g5.str," - ",fixed=TRUE))
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g4.conta=c(rep(g4.class[1],9))
g5.conta=c(rep(g5.class[1],9))
g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
g4.dt["Contas"]=g4.conta
g5.dt["Contas"]=g5.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
names(g5.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g5.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt,g5.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g5.dt$Anos = as.Date(g5.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)
g07 =ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas, shape= Contas))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
# scale_color_manual(breaks = c(g1.class[1], g2.class[1],
# g3.class[1],g4.class[1], g5.class[1]),
scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1","orchid"))+
labs( x="Ano", y="Ativos (%)") +
ggtitle("An. Horizontal (% de 2010)")+
scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(0.0,1.4,by= 0.2), limits=c(0.0,1.4))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
box.padding = 0.35, point.padding = 0.15,
size = 3, nudge_y = 0.25,
segment.color = "grey70") +
geom_point(aes(shape = Contas),size = 3, show.legend = TRUE) +
scale_shape_manual(values=c(15, 16, 17, 18, 20))+
theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g07 = g07 +
theme(legend.position = c(0.12, 0.15), legend.title = element_text(size = 6),
legend.text = element_text(size = 6), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g07)
Análise de Tendências (V)
Visualizar a Análise Horizontal
#Visualizar dados do DRE: AH
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)
g1.str= "Resultado Bruto - DRE"
g2.str= "Resultado Antes do Resultado Financeiro e dos Tributos - DRE"
g3.str="Resultado Antes dos Tributos sobre o Lucro - DRE"
g4.str= "Lucro/Prejuizo Consolidado do Periodo - DRE"
g5.str= "Custo dos Bens e/ou Servicos Vendidos - DRE"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(m.DRE.aj.ah[g1.str,1:9]))
g2.dt =as.data.frame(t(m.DRE.aj.ah[g2.str,1:9]))
g3.dt =as.data.frame(t(m.DRE.aj.ah[g3.str,1:9]))
g4.dt =as.data.frame(t(m.DRE.aj.ah[g4.str,1:9]))
g5.dt =as.data.frame(t(m.DRE.aj.ah[g5.str,1:9]))
#g5.dt=-1*g5.dt
g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g4.class=unlist(strsplit(g4.str," - ",fixed=TRUE))
g5.class=unlist(strsplit(g5.str," - ",fixed=TRUE))
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g4.conta=c(rep(g4.class[1],9))
g5.conta=c(rep(g5.class[1],9))
g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
g4.dt["Contas"]=g4.conta
g5.dt["Contas"]=g5.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
names(g5.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g5.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt,g5.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g5.dt$Anos = as.Date(g5.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)
g08 =ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas, shape= Contas))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
# scale_color_manual(breaks = c(g1.class[1], g2.class[1],
# g3.class[1],g4.class[1], g5.class[1]),
scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1","orchid"))+
labs( x="Ano", y="DRE (%)") +
ggtitle("An. Horizontal (% de 2010)")+
scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-2.0,1.5,by= 0.5), limits=c(-2.0,1.5))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
box.padding = 0.2, point.padding = 0.2,
size = 3 , nudge_y = 0.20,
segment.color = "grey70") +
geom_point(aes(shape = Contas),size = 3 , show.legend = TRUE) +
scale_shape_manual(values=c(15, 16, 17, 18, 20))+
theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g08= g08 +
theme(legend.position = c(0.25, 0.25), legend.title = element_text(size = 7),
legend.text = element_text(size = 7), legend.key.size = unit(0.4, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g08)
Análise de Tendências (VII)
Contas da Dinâmica do Capital de Giro
– Ativo Cíclico ou Operacional \(AC_{op}\): AC - Caixa e Equivalentes de Caixa - Aplic. Finan.
– Passivo Cíclico ou Operacional \(PC_{op}\): PC - Emprestimos e Financiamentos - Instrumentos Financeiros - Titulos a pagar (Forfaiting)
– Ativo Financeiro \(AC_f\): AC - Ativo Cíclico
– Passivo Financeiro (= Passivo Oneroso) PC_f: PC - Passivo Cíclico
Análise de Tendências (VIIa)
– NECESSIDADE DE CAPITAL DE GIRO:
\(NIG = (AC_{op} - PC_{op})\)
Revela o montante de capital permanente que uma empresa necessita para financiar seu capital de giro. Esse volume é determinado pelo nível de atividade da empresa (produção e vendas) e prazos operacionais.
– CAPITAL DE GIRO LÍQUIDO:
\(CGL = (AC - PC)\)
Representa o volume de recursos de longo prazo (próprios ou de terceiros) investidos no giro.
– SALDO DE DISPONÍVEL:
\(SD= (CGL - NCG)\) ou \((AC_f - PC_f)\)
É uma medida de margem de segurança financeira de uma empresa, que indica sua capacidade interna de financiar um crescimento da atividade operacional. É uma reserva financeira.
– NECESSIDADE TOTAL DE FINANCIAMENTO PERMANENTE:
\(NTFP = (NCG + ANC)\)
É o crescimento mínimo de passivo não circulante que a empresa deve manter visando lastrear seus investimentos em giro e fixo, e estabelecer seu equilíbrio financeiro.
Análise de Tendências (VIII)
Contas da Dinâmica Operacional
# Capital de Giro Liquido
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
cgl.ac=as.numeric(m.Ativo.aj.med["Ativo Circulante - AC",])
cgl.pc=as.numeric(m.Passivo.aj.med["Passivo Circulante - PC",])
cgl=cgl.ac - cgl.pc
cgl=as.data.frame(cgl)
colnames(cgl)=c("Capital de Giro Liquido")
rownames(cgl)= Anos
# at.ciclico
at.ciclico.caixa=as.numeric(m.Ativo.aj.med["Caixa e Equivalentes de Caixa - AC",])
at.ciclico.apfinan=as.numeric(m.Ativo.aj.med["Aplicacoes Financeiras - AC",])
at.ciclico=cgl.ac-at.ciclico.caixa-at.ciclico.apfinan
at.ciclico=as.data.frame(at.ciclico)
colnames(at.ciclico)=c("Ativo Ciclico")
rownames(at.ciclico)= Anos
#pa.ciclico
pa.ciclico.empfinan=as.numeric(m.Passivo.aj.med["Emprestimos e Financiamentos - PC",])
pa.ciclico.intfinan=as.numeric(m.Passivo.aj.med["Instrumentos Financeiros - PC",])
pa.ciclico.forfaiting=as.numeric(m.Passivo.aj.med["Titulos a pagar - Forfaiting - PC",])
pa.ciclico=cgl.pc-pa.ciclico.empfinan-pa.ciclico.intfinan-pa.ciclico.forfaiting
pa.ciclico=as.data.frame(pa.ciclico)
colnames(pa.ciclico)=c("Passivo Ciclico")
rownames(pa.ciclico)= Anos
pa.ciclico=as.data.frame(pa.ciclico)
#at.financ
at.finan=cgl.ac-at.ciclico
at.finan=as.data.frame(at.finan)
colnames(at.finan)=c("Ativo Financeiro")
rownames(at.finan)= Anos
at.finan=as.data.frame(at.finan)
#pa.financ
pa.finan=cgl.pc-pa.ciclico
pa.finan=as.data.frame(pa.finan)
colnames(pa.finan)=c("Passivo Financeiro")
rownames(pa.finan)= Anos
pa.finan=as.data.frame(pa.finan)
# necessidade de investimento de giro
nig=at.ciclico-pa.ciclico
nig=as.data.frame(nig)
colnames(nig)=c("Necessidade de Investimento de Giro")
rownames(nig)= Anos
nig=as.data.frame(nig)
# saldo disponivel
sdisp=cgl-nig
sdisp=as.data.frame(sdisp)
colnames(sdisp)=c("Saldo de Disponivel")
rownames(sdisp)= Anos
sdisp=as.data.frame(sdisp)
# Necessidade Total de Financiamento Permanente - NTFP
at.perm=as.numeric(m.Ativo.aj.med["Imobilizado - ANC",])+as.numeric(m.Ativo.aj.med["Investimentos - ANC",])
ntfp=nig+at.perm
ntfp=as.data.frame(ntfp)
colnames(ntfp)=c("Necessidade Total de Financiamento Permanente")
rownames(ntfp)= Anos
ntfp=as.data.frame(ntfp)
colnames(at.ciclico)=c("Ativo Ciclico")
rownames(at.ciclico)= Anos
at.ciclico=as.data.frame(at.ciclico)
colnames(pa.ciclico)=c("Passivo Ciclico")
rownames(pa.ciclico)= Anos
pa.ciclico=as.data.frame(pa.ciclico)
Análise de Tendências (IX)
Contas da Dinâmica Operacional
# Visualizar AC ciclico e financeiro
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)
g1.str= "Ativo Circulante - AC"
g2.str= "Ativo Ciclico"
g3.str= "Ativo Financeiro"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame( t(m.Ativo.aj.med[g1.str,1:9]) )
g2.dt = at.ciclico
g3.dt = at.finan
g1.class[1]=g1.str
g2.class[1]=g2.str
g3.class[1]=g3.str
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)
g09 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Ativos (Bilhões R$)") +
ggtitle("Comparativo de Ativos Circulante, Ciclico e Financeiro")+
scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(0,20000000,by= 2500000), limits=c(0,20000000))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
box.padding = 0.2, point.padding = 0.2,
size = 3, nudge_y = 0.15,
segment.color = "grey70") + geom_point(aes(shape = Contas),size =3) +
scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g09= g09 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.80, 0.80), legend.title = element_text(size = 8),
legend.text = element_text(size = 8), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g09)
# Visualizar PC, cíclico e financeiro
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)
g1.str= "Passivo Circulante - PC"
g2.str= "Passivo Ciclico"
g3.str= "Passivo Financeiro"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame( t(m.Passivo.aj.med[g1.str,1:9]) )
g2.dt = pa.ciclico
g3.dt = pa.finan
g1.class[1]=g1.str
g2.class[1]=g2.str
g3.class[1]=g3.str
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g1.dt["Indicadores"]=g1.conta
g2.dt["Indicadores"]=g2.conta
g3.dt["Indicadores"]=g3.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
# g.dt$Contas = as.factor(g.dt$Contas)
g10 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indicadores, colour= Indicadores ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Passivos (Bilhões R$)") +
ggtitle("Comparativo de Passivos Circulante, Ciclico e Financeiro")+
scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(0,7000000,by= 1000000), limits=c(0,7000000))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
box.padding = 0.2, point.padding = 0.2,
size = 3, nudge_y = 0.15,
segment.color = "grey70") + geom_point(aes(shape = Indicadores),size =3.5) +
scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g10= g10 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.85, 0.80), legend.title = element_text(size = 8),
legend.text = element_text(size = 8), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g10)
Análise de Tendências (X)
Contas da Dinâmica Operacional
# Visualizar CGL, NIG e SD
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)
g1.str= "Capital de Giro Liquido"
g2.str= "Necessidade de Investimento de Giro"
g3.str= "Saldo de Disponivel"
g4.str= "Necessidade Total de Financiamento Permanente"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = cgl
g2.dt = nig
g3.dt = sdisp
g4.dt = ntfp
g1.class[1]=g1.str
g2.class[1]=g2.str
g3.class[1]=g3.str
g4.class[1]=g4.str
g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g4.conta=c(rep(g4.class[1],9))
g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
g4.dt["Contas"]=g4.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)
g11 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1"))+
labs( x="Ano", y="Ativos (Bilhões R$)") +
ggtitle("Comparativo de Indicadores de Giro")+
scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(-5000000,34000000,by= 5000000), limits=c(-5000000,34000000))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
box.padding = 0.2, point.padding = 0.2,
size = 3 , nudge_y = 0.25,
segment.color = "grey70") + geom_point(aes(shape = Contas),size =3) +
scale_shape_manual(values=c(15, 16, 17, 18)) + scale_size_manual(values=c(4, 4, 6, 6)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g11= g11 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.81, 0.86), legend.title = element_text(size = 7),
legend.text = element_text(size = 6), legend.key.size = unit(0.4, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g11)
Análise de Liquidez
– LIQUIDEZ IMEDIATA:
\(LI= (Disponível) / PC)\)
Mostra quantos R$ a empresa tem no disponível (caixa, bancos e aplicações financeiras disponíveis), para pagar as dividas vencíveis em um ano.Revela a capacidade de pagamento no curtíssimo prazo (imediata).
– LIQUIDEZ CORRENTE:
\(LC= (AC / PC)\)
Mostra quantos R$ a empresa tem no ativo circulante, para pagar cada real de divida vencível de um ano. Revela a capacidade de pagamento a curto prazo.
– LIQUIDEZ SECA:
\(LS= (AC - Estoques - Desp. Antec.) / PC\)
Mostra quanto tem no ativo circulante (não considerados os estoques e as despesas antecipadas) para pagar cada real de divida vencível dentro de um ano. Revela a capacidade de pagamento caso ocorra uma paralisação nas vendas. Não aplicável com just-in-time.
– LIQUIDEZ GERAL:
\(LG = (AC + ARLP) / (PC + PELP)\)
Mostra quantos R$ a empresa tem de valores disponíveis e realizáveis (em qualquer prazo) para pagar cada real do total de suas dívidas (a curto e a longo prazo). Revela a capacidade de pagamento geral.
Tarefa 2: Análise de Liquidez
Realizar as contas e a visualização
Visualizar a Liquidez
Análise da Estrutura de Capital
– Quantidade Endividamento Oneroso:
\((Passivo\ Oneroso)/(PL + Passivo\ Oneroso)\)
– Maturidade ou Qualidade de Vencimento:
\((Capital\ de\ Terceiros\ CP)/(Capital de Terceiros Total) = PC/(Passivo Total)\)
– Qualidade da Dívida Onerosa:
\((Passivo\ Oneroso\ CP)/(Passivo\ Oneroso)\)
– Grau de Endividamento:
\((Passivo\ Total)/PL\)
– Grau de Endividamento Oneroso:
\((Passivo\ Oneroso)/PL\)
Análise da Estrutura de Capital (I)
Indicadores do Endividamento
#Índices de endividamento
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
# Capital de Terceiros
ind.cap.terc=(m.Passivo.aj.med["Passivo Circulante - PC",]+m.Passivo.aj.med["Passivo Nao Circulante - PNC",])/(m.Passivo.aj.med["Passivo Total - PT",])
ind.cap.terc=as.data.frame(t(ind.cap.terc))
colnames(ind.cap.terc)=c("Capital de Terceiros")
rownames(ind.cap.terc)= Anos
ind.cap.terc=as.data.frame(ind.cap.terc)
# Capital Proprio
ind.cap.prop=m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]/(m.Passivo.aj.med["Passivo Total - PT",])
ind.cap.prop=as.data.frame(t(ind.cap.prop))
colnames(ind.cap.prop)=c("Capital Proprio")
rownames(ind.cap.prop)= Anos
ind.cap.prop=as.data.frame(ind.cap.prop)
# Qualidade do vencimento
ind.qual.vencim=m.Passivo.aj.med["Passivo Circulante - PC",]/m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
ind.qual.vencim=as.data.frame(t(ind.qual.vencim))
colnames(ind.qual.vencim)=c("Qualidade do Vencimento")
rownames(ind.qual.vencim)= Anos
ind.qual.vencim=as.data.frame(ind.qual.vencim)
# Passivo Oneroso - Qualidade do Passivo Oneroso
pa.oneroso=m.Passivo.aj.med["Passivo Nao Circulante - PNC",]+m.Passivo.aj.med["Emprestimos e Financiamentos - PC",]+m.Passivo.aj.med["Instrumentos Financeiros - PC",]+m.Passivo.aj.med["Titulos a pagar - Forfaiting - PC",]
ind.pa.onero=pa.oneroso/m.Passivo.aj.med["Passivo Total - PT",]
ind.pa.onero=as.data.frame(t(ind.pa.onero))
colnames(ind.pa.onero)=c("Qualidade do Passivo Oneroso")
rownames(ind.pa.onero)= Anos
ind.pa.onero=as.data.frame(ind.pa.onero)
#Grau de Endividamento
ind.grau.end=(m.Passivo.aj.med["Passivo Circulante - PC",]+m.Passivo.aj.med["Passivo Nao Circulante - PNC",])/m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
ind.grau.end=as.data.frame(t(ind.grau.end))
colnames(ind.grau.end)=c("Grau de Endividamento")
rownames(ind.grau.end)= Anos
ind.grau.end=as.data.frame(ind.grau.end)
#Grau de Endividamento Oneroso
ind.grau.end.onero=pa.oneroso/m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
ind.grau.end.onero=as.data.frame(t(ind.grau.end.onero))
colnames(ind.grau.end.onero)=c("Grau de Endividamento Oneroso")
rownames(ind.grau.end.onero)= Anos
ind.grau.end.onero=as.data.frame(ind.grau.end.onero)
v.PL.aj=m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
rownames(v.PL.aj)=c("Patrimonio Liquido Consolidado - PL")
v.juros=m.DFC.aj.cm["Despesas de Juros - DFC-O",1:9]
v.pa.onero.emp=m.Passivo.aj.med["Emprestimos e Financiamentos - PNC",]+
m.Passivo.aj.med["Emprestimos e Financiamentos - PC",]+
m.Passivo.aj.med["Instrumentos Financeiros - PC",]+
m.Passivo.aj.med["Titulos a pagar - Forfaiting - PC",]
v.invest=v.pa.onero.emp+v.PL.aj
rownames(v.juros)=c("Juros")
Análise da Estrutura de Capital (II)
Visualização do Endividamento
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)
g1.str="Capital de Terceiros"
g2.str= "Capital Proprio"
g3.str= "Qualidade do Vencimento"
g4.str="Qualidade do Passivo Oneroso"
g5.str= "Grau de Endividamento"
g6.str= "Grau de Endividamento Oneroso"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(ind.cap.terc)
g2.dt =as.data.frame(ind.cap.prop)
g3.dt =as.data.frame(ind.qual.vencim)
g4.dt =as.data.frame(ind.pa.onero)
g5.dt =as.data.frame(ind.grau.end)
g6.dt =as.data.frame(ind.grau.end.onero)
g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g4.conta=c(rep(g4.str,9))
g5.conta=c(rep(g5.str,9))
g6.conta=c(rep(g6.str,9))
g1.dt["Endiv."]=g1.conta
g2.dt["Endiv."]=g2.conta
g3.dt["Endiv."]=g3.conta
g4.dt["Endiv."]=g4.conta
g5.dt["Endiv."]=g5.conta
g6.dt["Endiv."]=g6.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
names(g5.dt)[1]="Valor"
names(g6.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g5.dt["Anos"]=Anos
g6.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt,g5.dt,g6.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g5.dt$Anos = as.Date(g5.dt$Anos,"%Y%m%d")
g6.dt$Anos = as.Date(g6.dt$Anos,"%Y%m%d")
g.dt["Anos"]= Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
#g.dt$Contas = as.factor(g.dt$Contas)
g13 =ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Endiv., colour= Endiv., shape= Endiv.))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
# scale_color_manual(breaks = c(g1.class[1], g2.class[1],
# g3.class[1],g4.class[1], g5.class[1]),
scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1","orchid","cyan4"))+
labs( x="Ano", y="Indice (%)") +
ggtitle("An. de Endividamento (Estrutura de Capital)")+
scale_y_continuous(labels = function(z) paste0(z*100, " %"), breaks=seq(0,1.2,by= 0.2), limits=c(0,1.2))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), " %")),
box.padding = 0.25, point.padding = 0.25,
size = 2.5, nudge_y = 0.05,
segment.color = "grey70") +
geom_point(aes(shape = Endiv.),size = 3.5, show.legend = TRUE) +
scale_shape_manual(values=c(15, 16, 17, 18, 19, 20))+
theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g13 = g13 +
theme(legend.position = c(0.30, 0.83), legend.title = element_text(size = 5.5),
legend.text = element_text(size = 5.5), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g13)
Análise da Estrutura de Capital (II)
Visualização do Endividamento
# Visualizar Juros, Passivo Oneroso e Investimento
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g1.conta)
rm(g2.conta)
rm(g3.conta)
rm(g4.conta)
rownames(v.juros)=c("Juros")
rownames(v.pa.onero.emp)=c("Passivo Oneroso")
rownames(v.invest)=c("Investimento (Terc + Proprio)")
g1.str= "Juros"
g2.str= "Passivo Oneroso"
g3.str= "Investimento (Terc + Proprio)"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame(t(v.juros))
g2.dt = as.data.frame(t(v.pa.onero.emp))
g3.dt = as.data.frame(t(v.invest))
g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g1.dt["Valores"]=g1.conta
g2.dt["Valores"]=g2.conta
g3.dt["Valores"]=g3.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Valores = as.factor(g.dt$Valores)
g14 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Valores, colour= Valores ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Valores (Bilhões R$)") +
ggtitle("Indicadores Econômicos do Passivo da Empresa")+
scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(0,45000000,by= 10000000), limits=c(0,45000000))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
box.padding = 0.35, point.padding = 0.35,
size = 3, nudge_y = 0.25,
segment.color = "grey70") + geom_point(aes(shape = Valores),size = 3.5) +
scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g14= g14 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.80, 0.85), legend.title = element_text(size = 8),
legend.text = element_text(size = 8), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g14)
Análise de Lucratividade
EBITDA: pontencialidade de geração de caixa antes dos juros da depreciação e da amortização
EBIT: genuíno lucro operacional
NOPAT: lucro operacional livre após impostos
NOPLAT: lucro operacional livre (sem os impostos)
FCL: fluxo de caixa livre
FCLA: fluxo de caixa livre do acionista
Observações:
– Imposto=34%
– EBIT = “Earning Before Interest and Taxes”, também chamado no Brasil de LAJIR.
– EBITDA = “Earning Before Interest, Taxes, Depreciation and Amortization”, também chamado no Brasil de LAJIDA.
– NOPAT = “Net operating profit after taxes” (lucro de exploração da atividade líquido após o imposto).
– NOPLAT = “Net operating profit less adjusted taxes” (lucro de exploração da atividade líquido ajustado sem o imposto).
\(NOPLAT=NOPAT+Juros*34\%\)
Análise de Lucratividade (I)
# Índices de Lucratividade
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
v.deprec = m.DFC.aj.cm["Depreciacao, Amortizacao e Exaustao - DFC-O",1:9]
rownames(v.deprec)=c("Depreciacao, Amortizacao e Exaustao")
v.vendas = m.DRE.aj.cm["Receita de Venda de Bens e/ou Servicos - DRE",]
rownames(v.vendas)=c("Receita de Venda de Bens e/ou Servicos")
ind.ebit= m.DRE.aj.cm["Resultado Antes do Resultado Financeiro e dos Tributos - DRE",]-
m.DRE.aj.cm["Resultado de Equivalencia Patrimonial - DRE",]-
m.DRE.aj.cm["Outras Despesas Operacionais - DRE",]-
m.DRE.aj.cm["Outras Receitas Operacionais - DRE",]
ind.ebitda= ind.ebit+v.deprec
ind.nopat= ind.ebit*(1-0.34)
rownames(ind.ebit)=c("EBIT")
rownames(ind.ebitda)=c("EBITA")
rownames(ind.nopat)=c("NOPAT")
ind.noplat= ind.nopat+v.juros*0.34 # NOPLAT= Net operating profit less adjusted taxes
rownames(ind.noplat)=c("NOPLAT")
#Margem do EBIT, EBITDA e NOPAT
v.marg.ebit=ind.ebit/v.vendas
v.marg.ebitda=ind.ebitda/v.vendas
v.marg.nopat=ind.nopat/v.vendas
rownames(v.marg.ebit)=c("Margem EBIT")
rownames(v.marg.ebitda)=c("Margem EBITA")
rownames(v.marg.nopat)=c("Margem NOPAT")
rownames(v.deprec)=c("Depreciacao, Amortizacao e Exaustao")
v.lliq = m.DRE.aj.cm["Lucro/Prejuizo Consolidado do Periodo - DRE",]
v.marg.liq=v.lliq/v.vendas
rownames(v.marg.liq)=c("Margem Liquida")
Análise de Lucratividade (II)
Indicadores
# Visualizar EBIT, EBITDA, NOPAT, NOPLAT
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g1.conta)
rm(g2.conta)
rm(g3.conta)
rm(g4.conta)
g1.str= "EBIT"
g2.str= "EBITDA"
g3.str= "NOPAT"
g4.str= "NOPLAT"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame(t(ind.ebit))
g2.dt = as.data.frame(t(ind.ebitda))
g3.dt = as.data.frame(t(ind.nopat))
g4.dt = as.data.frame(t(ind.noplat))
g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g4.conta=c(rep(g4.str,9))
g1.dt["Indicadores"]=g1.conta
g2.dt["Indicadores"]=g2.conta
g3.dt["Indicadores"]=g3.conta
g4.dt["Indicadores"]=g4.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Indicadores = as.factor(g.dt$Indicadores)
g15 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indicadores, colour= Indicadores ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Indicadores (Bilh?es R$)") +
ggtitle("Comparativo de Indicadores de Lucratividade")+
scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(-1000000,3800000,by= 500000), limits=c(-1000000,3800000))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
box.padding = 0.2, point.padding = 0.2,
size = 3.5, nudge_y = 0.15,
segment.color = "grey70") + geom_point(aes(shape = Indicadores),size =4.5) +
scale_shape_manual(values=c(15, 16, 17, 18)) + scale_size_manual(values=c(4, 4, 6, 6)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g15= g15 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.60, 0.80),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g15)
Análise da Lucratividade (III)
Margens
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
g1.str="Margem EBIT"
g2.str= "Margem EBITDA"
g3.str= "Margem NOPAT"
g4.str= "Margem Líquida"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(v.marg.ebit))
g2.dt =as.data.frame(t(v.marg.ebitda))
g3.dt =as.data.frame(t(v.marg.nopat))
g4.dt =as.data.frame(t(v.marg.liq))
g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g4.conta=c(rep(g4.str,9))
g1.dt["Margem"]=g1.conta
g2.dt["Margem"]=g2.conta
g3.dt["Margem"]=g3.conta
g4.dt["Margem"]=g4.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Margem)
g16 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Margem, colour= Margem ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Margens %") +
ggtitle("Margem na Lucratividade")+
scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-0.15,0.3,by=0.10), limits=c(-0.15,0.3))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
box.padding = 0.2, point.padding = 0.2,
size = 3.5, nudge_y = 0.05,
segment.color = "grey70") + geom_point(aes(shape = Margem),size =4.0) +
scale_shape_manual(values=c(15, 16, 17,18)) + scale_size_manual(values=c(4, 4, 6, 4)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g16= g16 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.13, 0.17), legend.key.size = unit(0.5, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g16)
Análise de Rentabilidade
RENTABILIDADE (Retorno do Investimento/Ativo ou PL)
\(ROA = (Lucro\ Líquido)/(Ativo\ Total)\)
\(ROI = ROIC = EBIT/(Ativos\ Operacionais)\)
\(ROE= LL/PL\)
GIRO (# de vezes que Ativos ou PL girou em função das vendas)
\(Giro\ dos\ Ativos= Vendas/(Ativo\ total)\)
\(Giro\ Operacional = Vendas/ (Ativos\ Operacionais)\)
\(Giro\ do\ PL= Vendas/ PL\)
Importante:
\(RETORNO= MARGEM * GIRO\)
Exemplo: \(ROI = [(Lucro\ Operacional)/(Vendas)] * [(Vendas)/(Ativos\ Operacionais)]\)
Análise de Rentabilidade (I)
v.PL.aj=m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
rownames(v.PL.aj)=c("Patrimonio Liquido Consolidado - PL")
at.ciclico=t(at.ciclico)
ind.roa=v.lliq/v.AT.aj
ind.roe=v.lliq/v.PL.aj
ind.roi=ind.ebit/at.ciclico
rownames(ind.roa)=c("ROA")
rownames(ind.roe)=c("ROE")
rownames(ind.roi)=c("ROI")
ind.giro.op=v.vendas/at.ciclico
ind.giro.at=v.vendas/v.AT.aj
ind.giro.pl=v.vendas/v.PL.aj
rownames(ind.giro.op)=c("Giro Operacional")
rownames(ind.giro.at)=c("Giro do Ativo")
rownames(ind.giro.pl)=c("Giro do PL")
Análise de Rentabilidade (II)
Indicadores
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
g1.str="ROA"
g2.str= "ROE"
g3.str= "ROI"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(ind.roa))
g2.dt =as.data.frame(t(ind.roe))
g3.dt =as.data.frame(t(ind.roi))
g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g1.dt["Indicadores"]=g1.conta
g2.dt["Indicadores"]=g2.conta
g3.dt["Indicadores"]=g3.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Indicadores)
g17 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indicadores, colour= Indicadores ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Indicadores %") +
ggtitle("Indicadores de Rentabilidade")+
scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-0.25,0.3,by=0.10), limits=c(-0.25,0.3))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
box.padding = 0.2, point.padding = 0.2,
size = 3.5, nudge_y = 0.05,
segment.color = "grey70") + geom_point(aes(shape = Indicadores),size =4.5) +
scale_shape_manual(values=c(15, 16, 17,18)) + scale_size_manual(values=c(4, 4, 6, 4)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g17= g17 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.15, 0.20),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g17)
Análise de Rentabilidade (III)
Margens
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
g1.str="Margem EBIT"
g2.str= "Margem EBITDA"
g3.str= "Margem NOPAT"
g4.str= "Margem Líquida"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(v.marg.ebit))
g2.dt =as.data.frame(t(v.marg.ebitda))
g3.dt =as.data.frame(t(v.marg.nopat))
g4.dt =as.data.frame(t(v.marg.liq))
g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g4.conta=c(rep(g4.str,9))
g1.dt["Margem"]=g1.conta
g2.dt["Margem"]=g2.conta
g3.dt["Margem"]=g3.conta
g4.dt["Margem"]=g4.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Margem)
g18 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Margem, colour= Margem ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Margens %") +
ggtitle("Margem da Rentabilidade")+
scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-0.15,0.3,by=0.10), limits=c(-0.15,0.3))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
box.padding = 0.2, point.padding = 0.2,
size = 3.5, nudge_y = 0.05,
segment.color = "grey70") + geom_point(aes(shape = Margem),size =4.5) +
scale_shape_manual(values=c(15, 16, 17,18)) + scale_size_manual(values=c(4, 4, 6, 4)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g18= g18 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.55, 0.80), legend.title = element_text(size = 7),
legend.text = element_text(size = 7), legend.key.size = unit(0.6, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g18)
Análise da Rentabilidade (IV)
Giros
rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
g1.str="Giro do Ativo"
g2.str= "Giro Operacional"
g3.str= "Giro do PL"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(ind.giro.at))
g2.dt =as.data.frame(t(ind.giro.op))
g3.dt =as.data.frame(t(ind.giro.pl))
g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g1.dt["Indicadores"]=g1.conta
g2.dt["Indicadores"]=g2.conta
g3.dt["Indicadores"]=g3.conta
names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g.dt=(rbind(g1.dt,g2.dt,g3.dt))
rownames(g.dt)=c(1:length(row.names(g.dt)))
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Indicadores)
g19 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indicadores, colour= Indicadores ))+
geom_line(col="gray70",size= 0.8, linetype = 3 )+
labs( x="Ano", y="Giro Operacional, do Ativo e do PL") +
ggtitle("Indicadores de Desempenho Econômico")+
scale_y_continuous(labels = function(z) paste0(z*1, " "), breaks=seq(0.0,3,by=0.5), limits=c(0.0,3))+
scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
geom_label_repel(
aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*1,2), " ")),
box.padding = 0.2, point.padding = 0.2,
size = 3.0, nudge_y = 0.05,
segment.color = "grey70") + geom_point(aes(shape = Indicadores),size =4.0) +
scale_shape_manual(values=c(15, 16, 17,18)) + scale_size_manual(values=c(4, 4, 6, 4)) + theme_bw()+
theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
plot.title = element_text(color="black", size=18, face="bold.italic"),
axis.title.x = element_text(color="black", size=16, face="bold"),
axis.title.y = element_text(color="black", size=16, face="bold"),
axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g19= g19 +
# scale_colour_grey(start = 0.3, end = 0.4) +
theme(legend.position = c(0.25, 0.85), legend.title = element_text(size = 7),
legend.text = element_text(size = 7), legend.key.size = unit(0.6, "cm"),
legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g19)
Tarefa 3
Refaça para a análise para a Gerdau:
Período 2012 - 2018.
Correção Monetária IGP-DI
Utilize dados consolidados
Compare com a Usiminas